• Предмет: Информатика
  • Автор: AlekseyAnonimus0346
  • Вопрос задан 7 лет назад

20 баллов. Найдите пожалуйста ошибку, пишет всегда ошибка, не правильно введён номер месяца говорит а должно говорить от цифр 1-12 время года. Исправьте пожалуйста.

Приложения:

Ответы

Ответ дал: 13nisa13
0

var m:integer;

begin

readln(m);

if (m=1) or (m=2) or (m=12) then writeln('z') else

if (m=3) or (m=4) or (m=5) then writeln('v') else

if (m=6) or (m=7) or (m=8) then writeln('l') else

if (m=9) or (m=10)or (m=11) then writeln('o')

else writeln('err');

end.


Или


var m:integer;

begin

readln(m);

if (m=1) or (m=2) or (m=12) then writeln('z');

if (m=3) or (m=4) or (m=5) then writeln('v');

if (m=6) or (m=7) or (m=8) then writeln('l');

if (m=9) or (m=10)or (m=11) then writeln('o');

if (m<1) or (m>12) then writeln('err');

end.

Ответ дал: AlekseyAnonimus0346
0
Спасибо огромное
Вас заинтересует