Question

Пожалуйста, помогите.прошу вас. завтра экзамен, боюсь завалить.Очень нужна ваша помощь!!!!!!Заранее говорю вам спасибо, и очень жду!

8c1ef04360cf1e42b26bec77cd54594b.docx

a572877eacd5ce0670ee328224bc8d87.docx

Answer 1

4-ое задание про "лет":
program zd;
var
a:1..40;
begin
writeln('Введите количество лет');
readln(a);
case a of
1,21,31: writeln('мне', a , 'год');
5..20, 25..30, 35..40: writeln('мне', a, 'лет');
2..4, 22..24, 32..34: writeln('мне',a, 'года');
end;
end.

Нашёл то, что было в тетрадке)

Answer 2

program zd1;