Program prog;
Uses crt;
var m: integer;
label l1;
Begin clrscr;
l1: write('Введите номер месяца = ');
readln(m);
case m of 1,3,5,7,8,10,12: writeln('31');
4,6,9,11: writeln('30');
2: writeln('28/29');
else
begin
writeln('Непривильный номер месяца');
writeln;
goto l1;
end;
end;
readln;
End.
программа для выведения числа в обратном порядке
Ответ:
это твой год рождения у меня тож самое только 2005 года
Мёд-вкусный липкий ароматный густой
Номер 17, ответ 9
А ещё у вас ошибка вроде в 18