Предмет: Информатика,
автор: artem284122
Написать программу,решение следующей шуточной задачи(использовать неполную форму)
1)ЭВМ спрашивает:"Сколько вам лет?"
*Если ответ меньше 18,то отвечает:"Вы ребёнок"
*Если вам больше 18 но меньше 35:"Вы молоды"
*Если вам больше 35 но меньше 100:"Вы взрослый"
Ответы
Автор ответа:
0
program evm;
var
a:integer;
begin
Writeln('Сколько вам лет? ');
readln(a);
if a<18 then writeln('Вы ребёнок');
if (a>18) and (a<35) then writeln('Вы молоды');
If (a>35) and (a<100) then writeln('Вы взрослый');
readln;
end.
var
a:integer;
begin
Writeln('Сколько вам лет? ');
readln(a);
if a<18 then writeln('Вы ребёнок');
if (a>18) and (a<35) then writeln('Вы молоды');
If (a>35) and (a<100) then writeln('Вы взрослый');
readln;
end.
Похожие вопросы
Предмет: Алгебра,
автор: akasi1803
Предмет: История,
автор: Аноним
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: sutorminakseny
Предмет: Биология,
автор: galina7311