Восьмиклассники марина и саша изучают тему «делимость». они уже знают, что число а делится без остатка на число б, если число n можно представить в виде а = в * р, где р - некое целое число. чтобы лучше понять эту тему, маричка записывает на доске трехзначное натуральное число n, а саша пытается увеличить одну из цифр этого числа так, чтобы оно делилось н ^ с. напишите программу, которая находит все увеличить одну из цифр числа, записанного машей, так, чтобы полученное число было кратно 3
llRosell
1
11.09.2019 09:50
0
Другие вопросы по теме Информатика
Era2008
10.11.2020 10:02
Groverr
10.11.2020 10:03
ԺⱭNÍYⱭ
10.11.2020 10:03
dgony2003
10.11.2020 10:03
Yarmoshenkobchmd
01.06.2019 11:40
Po999
01.06.2019 11:50
mirpodrostka
03.03.2021 18:54
mixfix728
13.04.2022 16:06
nastyarudckina
13.04.2022 18:06
Популярные вопросы
- 50 ! свойства кремнезёма (по этому плану) 1. цвет 2. плотность 3. температура...
2 - После того как 42 человека купили по 2 билета, в кассе осталось билетов в...
1 - №1 объедини глаголы в группы по значению: 1) начало 2) окончание 3) неполное...
3 - Формуы сокращенного умножения: а)(5а+6б)во второй степени б)(10-4с)во второй...
2 - Сочленения на тему два отца тыбурцый и судья...
2 - Угадай сказку сказка о царе салтане о сыне его славном и могучем богатыре...
2 - Характеристика главного героя, письменно. ( уроки французского)...
2 - Подготовьте краткое сообщение о том, на чём и с каких инструментов люди записывали...
1 - Топелиус три ржаных колоска в чем секрет удачи? почему возвращается добро...
2 - 10 словосочетаний с прилагательными в единственном и множественном числе...
2
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