Ответы
Ответ дал:
0
uses crt;
var a:integer;
begin
writeln('Введите число');
read(a);
if Length(inttostr(a))=2 then a:=a+18;
writeln(a);
end.
var a:integer;
begin
writeln('Введите число');
read(a);
if Length(inttostr(a))=2 then a:=a+18;
writeln(a);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
10 лет назад