Задание 4.14
Pascal
помогите
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
