задание 4.14
Pascal
помогите
Приложения:
Ответы на вопрос
Ответил StrangeT
0
var
a,b:integer;
begin
write('Введите двузначное число: ');
readln(a);
b:=a mod 10;
a:= a div 10;
if abs((a+b))>9 then writeln('Является') else writeln('Не является');
end.
a,b:integer;
begin
write('Введите двузначное число: ');
readln(a);
b:=a mod 10;
a:= a div 10;
if abs((a+b))>9 then writeln('Является') else writeln('Не является');
end.
Новые вопросы