Составить программу что указанный человек совершеннолетний
Составить программу что указанный человек совершеннолетний
Гость
Ответ(ы) на вопрос:
ГостьProgram chelovek;
Const:B=18:integer;
Var A:integer;
Begin
Writeln('Введите возраст');
Readln(A);
If A=>B then writeln('совершеннолетний') else writeln('не совершеннолетний');
End.
Не нашли ответ?
Похожие вопросы