Дано натуральное двузначное число. Составить программку определения, является ли сумма его

Дано естественное двузначное число. Составить программку определения, является ли сумма его цифр двузначным числом. Если нет, то через сколько чисел повстречаться первое двузначное число, удовлетворяющее этому условию.На паскале

Задать свой вопрос
1 ответ

var

x,x1:integer;

begin

readln(x);

if (x div 10 + x mod 10 gt;= 10) then writeln ('Является')

else begin  x1:=x; while (x1 div 10 + x1 mod 10 lt; 10) do x1:=x1+1; end;a

if (x div 10 + x mod 10 lt; 10) then writeln('Необходимо прирастить на ',x1-x);

end.

Тимур
спс
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт