Дано натуральное числоY. Увеличит его на 18, если число двухзначное.

по Паскалю решить задачу

Question

Петрята

30 апреля, 02:33

+4

Ответы (1)

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

Юнона · Answer 1

Uses crt;

var a:integer;

begin

writeln ('Введите число') ;

read (a) ;

if Length (inttostr (a)) = 2 then a:=a+18;

writeln (a) ;

end.

Дано натуральное числоY. Увеличит его на 18, если число двухзначное.по Паскалю решить задачу