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.
10. B
11. C
12. C
13. C
14. D
15. Имя файла и расширение
16. три-четыре
1-2
------------------------------------
86 клавиш, ну т.е. 1 ответ