Регистрация
Nilu2002
04.02.2022 19:07
Информатика
Есть ответ 👍

Паскаль. оператор case.напишите программу, которая по номеру месяца выдает название следующего за ним месяца (при m=1 получаем февраль, 4- май, 12- январь).

114
218
Посмотреть ответы 2

Ответы на вопрос:

Beheh
Beheh
4,4(35 оценок)
Program example; var m : integer; begin  m: =0;   writeln('номер месяца');   read(m);   case m of  1: writeln ('февраль');   2: writeln ('март');   3: writeln ('апрель');   4: writeln ('май');   5: writeln ('июнь');   6: writeln ('июль');   7: writeln ('август');   8: writeln ('сентябрь');   9: writeln ('октябрь');   10: writeln ('ноябрь');   11: writeln ('декабрь');   12: writeln ('январь');   else writeln ('это число не является цифрой');   end; end.
kat2000T
kat2000T
4,6(90 оценок)

var

  a, sum : integer;

begin

  read (a);

  sum : = a div 10 + a mod 10;

  writeln (sum);

end.

Популярно: Информатика