Задание

Дан номер месяца (1 – январь, 2 – февраль, ...). Вывести название соответствующего времени года («зима», «весна» и т. д.)

Program task1;

var n:integer;

Begin

writeln('Номер месяца -->');readln(n);

if (n>=1) and (n<=12) then

Begin

Write(n,' ');

case n of

12,1,2:write('Зима');

3,4,5:write('Весна');

6,7,8:write('Лето');

9,10,11:write('Осень');

end;

end

else writeln('Ошибка ввода данных!');

end.

2.Дан номер месяца (1 – январь, 2 – февраль, ...). Вывести число дней в этом месяце для невисокосного года (т. е. в феврале 28 дней)

Program task2;

var n:integer;

Begin

writeln('Номер месяца -->');readln(n);

if (n>=1) and (n<=12) then

Begin

Write(' ');

case n of

1,3,5,7,8,10,12:write('31 дней в месяце.');

4,6,9,11:write('30 дней в месяце.');

2:write('28 дней в месяце.');

end;

end

else writeln('Ошибка ввода данных!');

end.

Дано целое число в диапазоне от 1 до 5. Вывести строку – словесное описание соответствующей оценки (1 – «плохо», 2 – «неудовлетворительно», 3 – «удовлетворительно», 4 – «хорошо», 5 – «отлично») Program task4; var n:integer; Begin writeln('Введите число -->');readln(n); if (n>=1) and (n<=5) then Begin Write(n,'-'); case n of 1:write('Плохо'); 2:write('Неудовлетворительно'); 3:write('Удовлетворительно'); 4:write('Хорошо'); 5:write('Отлично'); end; end else writeln('Ошибка ввода данных!'); end.

4.Составить программу, которая по возрасту человека (вводится с клавиатуры как целое число) определяет его принадлежность к возрастной группе: от 0 до 13 – мальчик; от 14 до 20 – юноша; от 21 до 70 – мужчина;более 70 – старец

program task8;

var

x:integer;

Begin

Writeln;

writeln('Составить программу, которая по возрасту человека(вводится с клавиатуры как целое число)определяет его принадлежность к возрастной группе:от 0 до 13–мальчик;от 14 до 20–юноша;от 21 до 70-мужчина;более 70-старец.');

Writeln;

write('Введите Ваш возраст -->');readln(x);

if (x>=0) and (x<=100) then

Begin

Write(x,'-');

case x of

0..13: Write('мальчик');

14..20: Write('юноша');

21..69: Write('мужчина');

70..100:Write('старец');

end;

end

else writeln('Ошибка ввода!');

End.