Ответы на вопрос:
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)
vara,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.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Sveta110026.05.2022 15:45
-
ALENAFOKS08.12.2020 21:28
-
emin7715.04.2020 06:46
-
Victoriya123456789006.01.2022 05:43
-
александр38331.01.2022 07:57
-
MilаKlimenkova17.01.2022 18:39
-
Ejdkw20.07.2022 15:40
-
marta419105.04.2021 08:48
-
лиза269505.07.2020 08:12
-
ден101917.12.2021 05:53
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.