написать программу в Pascal и составить её блок -схему: по возрасту, введённому с клавиатуры, определить, к какой возрастной группе относится человек: от 0 до 7 лет дошкольник. от 8 до 17 лет школьник, от 18 до 23 лет студент, 24-55 лет работник, от 56 лет и старше пенсионер.

Ответы 2

var

a:integer;

begin

write('Введите возраст '); readln(a);

write('Этот человек ');

case a of

    0..7: writeln('дошкольник');

    8..17: writeln('школьник');

    18..23: writeln('студент');

    24..55: writeln('работник');

    else

     writeln('пенсионер');

end;

end.
- Автор:
  maevenm5v
- 6 лет назад
- 0
varl:integer;beginwriteln('skolko let?');readln(l);if (l>=0) and (l<=7) thenwriteln('Doshkolnik')else if (l>=8) and (l<=17) thenwriteln('shkolnik')else if (l>=18) and (l<=23) thenwriteln('student')else if (l>=24) and (l<=55) thenwriteln('rabotnik')else if l>=56 thenwriteln('pensioner');end.
- Автор:
  ralphppcy
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы