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

Восьмиклассники Марина и Саша изучают тему Делимость. Они теснее знают, что число
А делится без остатка на число Б, если число N можно представить в виде А = В * р, где р
- некое целое число.
Чтоб превосходнее осознать эту тему, Маричка записывает на дощечке трехзначное натуральное число N, а
Саша пробует увеличить одну из цифр этого числа так, чтоб оно делилось н ^ С. Напишите
программку, которая обретает все способы увеличить одну из цифр числа, записанного Машей, так, чтоб
приобретенное число было кратно 3

Задать свой вопрос
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 klt;=9 do
 begin write(k*100+n2*10+n3,' '); k:=k+3; end;
k:=n2+3-m;
while klt;=9 do
 begin write(n1*100+k*10+n3,' '); k:=k+3; end;
k:=n3+3-m;
while klt;=9 do
 begin write(n1*100+n2*10+k,' '); k:=k+3; end;
end.

Пример:
302
402 702 312 342 372 303 306 309
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт