Задать вопрос
25 октября, 03:43

Написать программу в Паскаль:

1) Составьте программу, которая по заданному году и номеру месяца определит кол-во дней в этом месяце.

2) Для любого 2-ух значного числа, вывести его значение в словесной форме.

+1
Ответы (1)
  1. 25 октября, 07:12
    0
    1)

    var y, m, d:integer;

    begin

    read (y, m) ;

    case m of

    1,3,5,7,8,10,12: d:=31;

    4,6,9,11: d:=30;

    2:if (y mod 40) then d:=28 else

    if (y mod 1000) then d:=29 else

    if (y mod 4000) then d:=28 else

    d:=29;

    end;

    writeln (d) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Написать программу в Паскаль: 1) Составьте программу, которая по заданному году и номеру месяца определит кол-во дней в этом месяце. 2) Для ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы