var i: integer;
begin
write('i = ');
readln(i);
if (i <= 13) then writeln('Детство')
else if (i >= 14) and (i <= 24) then writeln('Молодость')
else if (i >= 25) and (i <= 59) then writeln('Зрелость')
else if (i >= 60) then writeln('Старость');
end.
var
a:integer;
write('Введите возраст '); readln(a);
write('Этот человек ');
case a of
0..13: writeln('детство');
14..24: writeln('молодость');
25..59: writeln('зрелость');
60..100: writeln('старость');
else
writeln('пенсионер');
end;
Объяснение:
var i: integer;
begin
write('i = ');
readln(i);
if (i <= 13) then writeln('Детство')
else if (i >= 14) and (i <= 24) then writeln('Молодость')
else if (i >= 25) and (i <= 59) then writeln('Зрелость')
else if (i >= 60) then writeln('Старость');
end.
var
a:integer;
begin
write('Введите возраст '); readln(a);
write('Этот человек ');
case a of
0..13: writeln('детство');
14..24: writeln('молодость');
25..59: writeln('зрелость');
60..100: writeln('старость');
else
writeln('пенсионер');
end;
end.
Объяснение: