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

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

Задать свой вопрос
2 ответа
Var 
v,p:integer;
begin
write('введите возраст человека');
readln(v);
write('введите пенсионный возраст');
readln(p);
if pgt;v then writeln('до пенсии осталось ',p-v,' лет')
else writeln('он теснее пенсионер');
readln;
end.
Var
a: byte;
begin
write('Vvedite vozrast: ');
readln(a);
if a gt;= 60 then writeln('Pensioner!')
else writeln('Ostalos let do pensii:', (60-a):3);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт