Задача 01. Дан массив чисел G(M). Определить количество чисел, превосходящих по модулю число А. Задача 02. Определить сумму и произведение элементов массива B(N) больших модуля числа С, а также среднее арифметическое значение этих элементов.
begin writeln('Сколько вам лет?'); readln(a); if a mod 10 = 1 then writeln('Вам ', a, ' год'); if a > 20 then //Если наш возраст, который больше 20, оканчивается на 2,3,4 то нам пишут "года") if (a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4) then writeln('Вам ', a, ' года'); if a < 10 then //Если наш возраст, который меньше 10, оканчивается на 2,3,4 то нам пишут "года") if (a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4) then writeln('Вам ', a, ' года'); if a > 4 then //Если нам от 5 до 19 лет, то нам пишут "лет") if a < 20 then writeln('Вам ', a, ' лет'); if a > 20 then //Если наш возраст, который больше =20, оканчивается на 0,5,6,7,8,9 то нам пишут "лет") if (a mod 10 = 0) or (a mod 10 = 5) or (a mod 10 = 6) or (a mod 10 = 7) or (a mod 10 = 8) or (a mod 10 = 9) then writeln('Вам ', a, ' лет'); end.
2)
var a: integer; d: string;
begin write('Введите сегодняшнее число '); readln(a); write('Введите название месяца в именительном падеже '); readln(d);
if d = 'январь' then if a = 31 then writeln('Завтра будет 1 февраля') else writeln('Завтра будет ', a + 1, ' января'); //январь if d = 'февраль' then if a = 28 then writeln('Завтра будет 1 марта') else writeln('Завтра будет ', a + 1, ' февраля'); //февраль if d = 'март' then if a = 31 then writeln('Завтра будет 1 апреля') else writeln('Завтра будет ', a + 1, ' марта'); //март if d = 'апрель' then if a = 30 then writeln('Завтра будет 1 мая') else writeln('Завтра будет ', a + 1, ' апреля'); //апрель if d = 'май' then if a = 31 then writeln('Завтра будет 1 июня') else writeln('Завтра будет ', a + 1, ' мая'); //май if d = 'июнь' then if a = 30 then writeln('Завтра будет 1 июля') else writeln('Завтра будет ', a + 1, ' июня'); //июнь if d = 'июль' then if a = 31 then writeln('Завтра будет 1 августа') else writeln('Завтра будет ', a + 1, ' июля'); //июль if d = 'август' then if a = 31 then writeln('Завтра будет 1 сентября') else writeln('Завтра будет ', a + 1, ' августа'); //август if d = 'сентябрь' then if a = 30 then writeln('Завтра будет 1 октября') else writeln('Завтра будет ', a + 1, ' сентября'); //сентябрь if d = 'октябрь' then if a = 31 then writeln('Завтра будет 1 ноября') else writeln('Завтра будет ', a + 1, ' октября'); //октябрь if d = 'ноябрь' then if a = 30 then writeln('Завтра будет 1 декабря') else writeln('Завтра будет ', a + 1, ' ноября'); //ноябрь if d = 'декабрь' then if a = 31 then writeln('Завтра будет 1 января') else writeln('Завтра будет ', a + 1, ' декабря'); //декабрь end.
3)
var a,b,c,x,y,z:integer;
begin writeln ('Введите число, месяц и год рождения певрого человека'); write ('Число - ');readln(a); write ('Месяц - ');readln(b); write ('Год - ');readln(c); writeln ('Введите число, месяц и год рождения второго человека'); write ('Число - ');readln(x); write ('Месяц - ');readln(y); write ('Год - ');readln(z); if c>z then writeln ('Второй человек старше');//проверка одного условия if c=z then//проверка 2х условий if b>y then writeln ('Второй человек старше');// if c=z then//проверка 3х условий if b=y then // if a>x then writeln ('Второй человек старше');// проверка для второго человека окончена
if c<z then writeln ('Первый человек старше');//проверка одного условия if c=z then//проверка 2х условий if b<y then writeln ('Первый человек старше');// if c=z then//проверка 3х условий if b=y then // if a<x then writeln ('Первый человек старше');//
if c=z then//проверка на равенство возрастов if b=y then if a=x then writeln('Люди имеют одинаковый возраст'); end.
1)
var
a: integer;
begin
writeln('Сколько вам лет?');
readln(a);
if a mod 10 = 1 then writeln('Вам ', a, ' год');
if a > 20 then //Если наш возраст, который больше 20, оканчивается на 2,3,4 то нам пишут "года")
if (a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4) then writeln('Вам ', a, ' года');
if a < 10 then //Если наш возраст, который меньше 10, оканчивается на 2,3,4 то нам пишут "года")
if (a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4) then writeln('Вам ', a, ' года');
if a > 4 then //Если нам от 5 до 19 лет, то нам пишут "лет")
if a < 20 then writeln('Вам ', a, ' лет');
if a > 20 then //Если наш возраст, который больше =20, оканчивается на 0,5,6,7,8,9 то нам пишут "лет")
if (a mod 10 = 0) or (a mod 10 = 5) or (a mod 10 = 6) or (a mod 10 = 7) or (a mod 10 = 8) or (a mod 10 = 9)
then writeln('Вам ', a, ' лет');
end.
2)
var
a: integer;
d: string;
begin
write('Введите сегодняшнее число '); readln(a);
write('Введите название месяца в именительном падеже '); readln(d);
if d = 'январь' then if a = 31 then writeln('Завтра будет 1 февраля') else writeln('Завтра будет ', a + 1, ' января'); //январь
if d = 'февраль' then if a = 28 then writeln('Завтра будет 1 марта') else writeln('Завтра будет ', a + 1, ' февраля'); //февраль
if d = 'март' then if a = 31 then writeln('Завтра будет 1 апреля') else writeln('Завтра будет ', a + 1, ' марта'); //март
if d = 'апрель' then if a = 30 then writeln('Завтра будет 1 мая') else writeln('Завтра будет ', a + 1, ' апреля'); //апрель
if d = 'май' then if a = 31 then writeln('Завтра будет 1 июня') else writeln('Завтра будет ', a + 1, ' мая'); //май
if d = 'июнь' then if a = 30 then writeln('Завтра будет 1 июля') else writeln('Завтра будет ', a + 1, ' июня'); //июнь
if d = 'июль' then if a = 31 then writeln('Завтра будет 1 августа') else writeln('Завтра будет ', a + 1, ' июля'); //июль
if d = 'август' then if a = 31 then writeln('Завтра будет 1 сентября') else writeln('Завтра будет ', a + 1, ' августа'); //август
if d = 'сентябрь' then if a = 30 then writeln('Завтра будет 1 октября') else writeln('Завтра будет ', a + 1, ' сентября'); //сентябрь
if d = 'октябрь' then if a = 31 then writeln('Завтра будет 1 ноября') else writeln('Завтра будет ', a + 1, ' октября'); //октябрь
if d = 'ноябрь' then if a = 30 then writeln('Завтра будет 1 декабря') else writeln('Завтра будет ', a + 1, ' ноября'); //ноябрь
if d = 'декабрь' then if a = 31 then writeln('Завтра будет 1 января') else writeln('Завтра будет ', a + 1, ' декабря'); //декабрь
end.
3)
var
a,b,c,x,y,z:integer;
begin
writeln ('Введите число, месяц и год рождения певрого человека');
write ('Число - ');readln(a);
write ('Месяц - ');readln(b);
write ('Год - ');readln(c);
writeln ('Введите число, месяц и год рождения второго человека');
write ('Число - ');readln(x);
write ('Месяц - ');readln(y);
write ('Год - ');readln(z);
if c>z then writeln ('Второй человек старше');//проверка одного условия
if c=z then//проверка 2х условий
if b>y then writeln ('Второй человек старше');//
if c=z then//проверка 3х условий
if b=y then //
if a>x then writeln ('Второй человек старше');// проверка для второго человека окончена
if c<z then writeln ('Первый человек старше');//проверка одного условия
if c=z then//проверка 2х условий
if b<y then writeln ('Первый человек старше');//
if c=z then//проверка 3х условий
if b=y then //
if a<x then writeln ('Первый человек старше');//
if c=z then//проверка на равенство возрастов
if b=y then
if a=x then writeln('Люди имеют одинаковый возраст');
end.
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8" />
<title>Время суток</title>
<style>
h5 {
width: fit-content;
}
h5:hover::after {
content: "<KEK";
}
</style>
<link rel="stylesheet" href="style.css" />
<script src="script.js"></script>
</head>
<body>
<header>
<h1>Приложение "Времена года"</h1>
</header>
<hr />
<main>
<label for="vre">Какой месяц года проверить?</label>
<input type="text" id="vre" />
<button id="b1">Обработать информацию</button>
<div id="image_box">
<img id="image" src="hello.png" />
</div>
</main>
<hr />
<footer>
<h5>Copyright: © Teacher - Kyiv, 2019</h5>
</footer>
<script>
"use strict";
(function() {
const b1 = document.getElementById("b1");
b1.onclick = function() {
const vre = document.getElementById("vre");
const image = document.getElementById("image");
if (vre.value.match(/(декаб|янва)рь|февраль/gi)) {
alert("Зима");
image.src = "winter.png";
} else if (vre.value.match(/март|апрель|май/gi)) {
alert("Весна");
image.src = "spring.png";
} else if (vre.value.match(/ию(л|н)ь|август/gi)) {
alert("Лето");
image.src = "summer.png";
} else if (vre.value.match(/(сент|окт|но)ябрь/gi)) {
alert("Осень");
image.src = "autumn.png";
} else {
alert("Вы ввели неверный месяц");
}
};
})();
</script>
</body>
</html>