Восьмиклассники Марина и Саша изучают тему "Делимость". Они уже знают, что число

А делится без остатка на число Б, если число N можно представить в виде А = В * р, где р

- некое целое число.

Чтобы лучше понять эту тему, Маричка записывает на доске трехзначное натуральное число N, а

Саша пытается увеличить одну из цифр этого числа так, чтобы оно делилось н ^ С. Напишите

программу, которая находит все способы увеличить одну из цифр числа, записанного Машей, так, чтобы

полученное число было кратно 3

Question

Информатика

Геруха

31 декабря, 20:16

Восьмиклассники Марина и Саша изучают тему "Делимость". Они уже знают, что число

А делится без остатка на число Б, если число N можно представить в виде А = В * р, где р

- некое целое число.

Чтобы лучше понять эту тему, Маричка записывает на доске трехзначное натуральное число N, а

Саша пытается увеличить одну из цифр этого числа так, чтобы оно делилось н ^ С. Напишите

программу, которая находит все способы увеличить одну из цифр числа, записанного Машей, так, чтобы

полученное число было кратно 3

+1

Ответы (1)

Знаете ответ на вопрос?

Мотя · Answer 1

Var n, n1, n2, n3, s, m, k:integer;

begin

readln (n) ;

n1:=n div 100;

n2:=n div 10 mod 10;

n3:=n mod 10;

s:=n1+n2+n3;

m:=s mod 3;

k:=n1+3-m;

while k<=9 do

begin write (k*100+n2*10+n3,' ') ; k:=k+3; end;

k:=n2+3-m;

while k<=9 do

begin write (n1*100+k*10+n3,' ') ; k:=k+3; end;

k:=n3+3-m;

while k<=9 do

begin write (n1*100+n2*10+k,' ') ; k:=k+3; end;

end.

Пример:

302

402 702 312 342 372 303 306 309