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

Question

Изабелла

25 июля, 03:38

+3

Ответы (1)

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

Максимилиан · Answer 1

Var

a: integer;

begin

readln (a) ;

if a<100 then inc (a) else dec (a) ;

write (a) ;

end.