Question

Написать программу на паскале, запрашивающую у пользователя его возраст и в зависимости от введенного возраста выводящую, например, грудничок, детсадовец, школьник, студент, работающий, пенсионер

Answer 1

Var age: Integer;
begin
writeln('Введите свой возраст');
readln(age);
if (age>-1) and (age<4) then writeln('малыш');
if (age>3) and (age<7) then writeln('детсадовец');
if (age>6) and (age<17) then writeln('школьник');
if (age>16) and (age<23) then writeln('студент');
if (age>22) and (age<50) then writeln('работник на заводе');
if (age>49) and (age<100) then writeln('пенсионер');
end.

Answer 2

Для написания программы на Pascal, которая запрашивает у пользователя возраст и выводит соответствующее сообщение, можно использовать следующий код:

pascalCopy code
program AgeClassifier;

var
  age: Integer;

begin
  WriteLn('Введите ваш возраст:');
  ReadLn(age);

  case age of
    0..2:
      WriteLn('Вы грудничок.');
    3..6:
      WriteLn('Вы детсадовец.');
    7..17:
      WriteLn('Вы школьник.');
    18..24:
      WriteLn('Вы студент.');
    25..59:
      WriteLn('Вы работающий.');
    else
      WriteLn('Вы пенсионер.');
  end;
end.

Программа предложит пользователю ввести его возраст. Затем с помощью оператора case будет определено, в каком диапазоне находится введенный возраст, и в зависимости от этого выводится соответствующее сообщение о его статусе.