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
