то что подчеркнуто на минимальный возвраст группы заменить.
? "введите возвраст человека"
input a
if a> пенсионер then 1 else 2
1 ? "группа пенсионеров" : goto 10
2 if a> работник then 3 else 4
3 ? "группа работников" : goto 10
4 if a> ученик then 5 else 6
5 ? "группа учеников" : goto 10
6 ? "группа дошкольников"
10 end
Ответ дал: Гость
Program is_ev_2d; var n: integer; begin write('введите число: '); readln(n); if (n mod 2 = 0) and (n > 9) and (n < 100) then writeln(n, ' чётное двузначное') else writeln(n, ' не чётное двузначное') end.
Популярные вопросы