Ответы
Ответ дал:
0
var
K:integer;
begin
write('Введите возраст: '); readln(k);
if ((k>0) and (k<7)) then writeln('Дошкольник');
if ((k>=7) and (k<17)) then writeln('Школьник');
if ((k>17) and (k<65)) then writeln('Работающий человек');
if (k>65)then writeln('Пенсионер');
readln
end.
K:integer;
begin
write('Введите возраст: '); readln(k);
if ((k>0) and (k<7)) then writeln('Дошкольник');
if ((k>=7) and (k<17)) then writeln('Школьник');
if ((k>17) and (k<65)) then writeln('Работающий человек');
if (k>65)then writeln('Пенсионер');
readln
end.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад