Составить программу что указанный человек совершеннолетний

Question

Информатика

Порфир

17 октября, 18:13

Составить программу что указанный человек совершеннолетний

+4

Ответы (1)

Знаете ответ на вопрос?

Юраня · Answer 1

Program chelovek;

Const:B=18:integer;

Var A:integer;

Begin

Writeln ('Введите возраст') ;

Readln (A) ;

If A=>B then writeln ('совершеннолетний') else writeln ('не совершеннолетний') ;

End.