Question

Составить программу на Паскале, которая зависит от введенных данных, определяет принадлежность человека к определенной группе: от 0 до 13 - мальчик; от 14 до 20 - юноша; от 21 до 70 - мужчина; более 70 - старец

Answer 1

Ответ:

var n: integer;

begin

 repeat

   Write('Введите Ваш возраст: '); ReadLn(n);

 until n > 0;

 case n of

   0..13: WriteLn('Вы мальчик');

   14..20: WriteLn('Вы юноша');

   21..70: WriteLn('Вы мужчина');

   else WriteLn('Вы старец');

 end;

end.

Объяснение:

Answer 2

Вот программа на языке Паскаль, которая определяет принадлежность человека к определенной группе на основе введенного возраста:

pascalCopy code
program DetermineGroup;
var
  age: integer;
begin
  writeln('Введите возраст: ');
  readln(age);

  if (age >= 0) and (age <= 13) then
    writeln('Вы - мальчик')
  else if (age >= 14) and (age <= 20) then
    writeln('Вы - юноша')
  else if (age >= 21) and (age <= 70) then
    writeln('Вы - мужчина')
  else
    writeln('Вы - старец');

  readln;
end.

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