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

Question

Информатика

Сима

1 июня, 17:52

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

+3

Ответы (1)

Знаете ответ?

Ефимья · Answer 1

Program chelovek;

Const:B=18:integer;

Var A:integer;

Begin

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

Readln (A) ;

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

End.