Написать программу, которая бы запрашивала возраст мужчины и сообщала, сколько лет ему осталось до пенсии, либо что он уже пенсионер.

Question

Информатика

Матрона

20 июля, 04:30

Написать программу, которая бы запрашивала возраст мужчины и сообщала, сколько лет ему осталось до пенсии, либо что он уже пенсионер.

+2

Ответы (2)

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

Петронилла · Answer 1

Var

v, p:integer;

begin

write ('введите возраст человека') ;

readln (v) ;

write ('введите пенсионный возраст') ;

readln (p) ;

if p>v then writeln ('до пенсии осталось ', p-v,' лет')

else writeln ('он уже пенсионер') ;

readln;

end.

Аникуша · Answer 2

Var

a: byte;

begin

write ('Vvedite vozrast: ') ;

readln (a) ;

if a > = 60 then writeln ('Pensioner!')

else writeln ('Ostalos let do pensii:', (60-a) : 3) ;

readln;

end.