Question

Программа в Паскаль. Ввести номер месяца и вывести количество дней в нём, а также число ошибок при вводе.

Answer 1

Var
   n,k:integer;
Begin
k:=-1;
Repeat
Write('Введите номер месяца: ');Read(n);
k:=k+1;
Until (n>0)and(n<13);
Case n of
1,3,5,7,8,10,12:n:=31;
4,6,9,11:n:=30;
2:n:=28;
else n:=0;
End;
WriteLn('Количество дней: ',n);
WriteLn('Количество ошибок при вводе: ',k);
End.