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

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

Question

Настася

5 января, 18:49

+3

Ответы (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, если число двухзначное.по Паскалю решить задачу