прошу решать тех,кто понимает Паскаль.Информатика,8 класс
срооочнооо
Ответы на вопрос
Відповідь:
program mecyac;
var m:integer;
begin
write('Введите номер месяца: ');readln(m);
if (m=1) then writeln('В этом месяце 31 дней.') else
if (m=2) then writeln('В этом месяце 28 дней.') else
if (m=3) then writeln('В этом месяце 31 дней.') else
if (m=4) then writeln('В этом месяце 30 дней.') else
if (m=5) then writeln('В этом месяце 31 дней.') else
if (m=6) then writeln('В этом месяце 30 дней.') else
if (m=7) then writeln('В этом месяце 31 дней.') else
if (m=8) then writeln('В этом месяце 31 дней.') else
if (m=9) then writeln('В этом месяце 30 дней.') else
if (m=10) then writeln('В этом месяце 31 дней.') else
if (m=11) then writeln('В этом месяце 30 дней.') else
if (m=12) then writeln('В этом месяце 31 дней.') else
writeln('Введено не верное число месяца.');
end.
Объяснение:
Кратко:
Начало программы месяц;
Сталая переменная ;
Начало програми;
Вывод на экран надписи "Введите число месяца";Ввод числа месяца;
Условные оператор в условном оператори которые проверяют на наличия соответствующего числа и подстановка под него подписи;
последний условный оператор выводит что число введено не верно поскольку оно не в диапазоне чисел и вывод на экран соответствующей надписи;
конец програми.