Задание:
С клавиатуры вводится возраст мужчины. Определить сколько лет ему осталось до пенсии или вывести на экран слово пенсионер если он достиг пенсионноговозраста
Решение:
Program p2; Var a: integer; BeginReadln (A); If a< {введите вместо этого пенсионный возраст } then Writeln ('До пенсии осталось', {введите вместо этого пенсионный возраст }-a,’ лет.’) else Writeln (‘Пенсионер’); End.
Знаете другой ответ?