Дано натуральное двузначное число. Составить программу определения, является ли сумма его цифр двузначным числом. Если нет, то через сколько чисел встретиться первое двузначное число, удовлетворяющее этому условию.На паскале
More Questions From This User See All
Answers & Comments
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.