Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Напишите программу потзаданному номеру месяца выводилось его название и указано количество дней в месяце

более месяца назад
Просмотров : 19    Ответов : 1   

Лучший ответ:

Паскаль 

  Var
month:integer;
  Begin
 readln(month);
if ((month >0 ) and ( month < 13)) then
case month of
1 : writeln ('Январь (31 день) ');
2 : writeln ('Февраль (28 дней) ');
3 : writeln ('Март (31 день)');
4 : writeln ('Апрель (31 день) ');
5 : writeln ('Май (28 дней)');
6 : writeln ('Июнь (31 день');
7 : writeln ('Июль (31 день) ');
8 : writeln ('Август (28 день) ');
9 : writeln ('Сентябрь (31 день');
10 : writeln ('Октябрь (31 день) ');
11 : writeln ('Ноябрь (28 дней) ');
12: writeln ('Декабрь (31 день)');
end
else writeln('Ошибка');

End.

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт





Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы: