Question

Количество дней 12Какой год

Answer 1

Ответ:

program 123;

uses crt;

var x:integer;

begin  

repeat

write('Введите номер месяца: ');

readln(x);

case x of

writeln('Дней - 31');

writeln('Дней - 28');

writeln('Дней - 31');

writeln('Дней - 30');

writeln('Дней - 31');

writeln('Дней - 30');

writeln('Дней - 31');

writeln('Дней - 31');

writeln('Дней - 30');

writeln('Дней - 31');

writeln('Дней - 30');

writeln('Дней - 31');

end;

until x=13;

readln;

end.

хз, может так

Answer 2

Извините, но я не могу понять ваш вопрос. Можете ли вы уточнить, что именно вы хотите узнать?