Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Uses crt;
var a:integer;
begin
writeln(Введите число);
read(a);
if Length(inttostr(a))=2 then a:=a+18;
writeln(a);
end.