Прошу решать тех,кто понимает Паскаль.Информатика,8 класссрооочнооо​

Question

Прошу решать тех,кто понимает Паскаль.Информатика,8 класссрооочнооо​

---

Comments

спасибо

---

Должно выбивать ошибку если введено не то число?

---

да

---

Не могли бы Вы и через case решить?

---

у меня на аккаунте два таких одинаковых вопроса

---

Это задание с if

---

А такое же задание у меня на аккаунте только с case

---

Не уверен что это вам нужно, так как кейсы изучают кажись перед масивами, а это где-то под самый конец года или на начало нового, а у вас сейчас только простенькие оператори, скоро тема розгалужений будет.

---

У нас в презентации в которой была эта задача уже просто есть case

---

ну не знаю я простенько сделал и объяснить данную програму намного легче чём с кейсами (но это не точно)

Answer 1

Відповідь:

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.

Объяснение:

Кратко:

Начало программы месяц;

Сталая переменная ;

Начало програми;

Вывод на экран надписи "Введите число месяца";Ввод числа месяца;

Условные оператор в условном оператори которые проверяют на наличия соответствующего числа и подстановка под него подписи;

последний условный оператор выводит что число введено не верно поскольку оно не в диапазоне чисел и вывод на экран соответствующей надписи;

конец програми.