Ответы
Ответ дал:
0
program Five;
var num : integer;
begin
write('Введите целое число: ');
readln (num);
if (num mod 2 = 0)
then writeln('Четное')
else writeln('Нечетное');
end.
program Six;
var month : integer;
begin
write('Введите номер месяца: ');
readln(month);
case month of
1, 2 : writeln('Зима');
3..5 : writeln('Весна');
6..8 : writeln('Лето');
9..11 : writeln('Осень');
12 : writeln('Зима');
end;
end.
var num : integer;
begin
write('Введите целое число: ');
readln (num);
if (num mod 2 = 0)
then writeln('Четное')
else writeln('Нечетное');
end.
program Six;
var month : integer;
begin
write('Введите номер месяца: ');
readln(month);
case month of
1, 2 : writeln('Зима');
3..5 : writeln('Весна');
6..8 : writeln('Лето');
9..11 : writeln('Осень');
12 : writeln('Зима');
end;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад