Восьмиклассники марина и саша изучают тему «делимость». - вопрос №8250980 от afdzafbg 28.01.2021 08:45

Question

Информатика: Восьмиклассники марина и саша изучают тему «делимость». они уже знают, что число а делится без остатка на число б, если число n можно представить в виде а = в * р, где р - некое целое число. чтобы лучше понять эту тему, маричка записывает на доске трехзначное натуральное число n, а саша пытается увеличить одну из цифр этого числа так, чтобы оно делилось н ^ с. напишите программу, которая находит все увеличить одну из цифр числа, записанного машей, так, чтобы полученное число было кратно 3

afdzafbg · Answer

Var n,n1,n2,n3,s,m,k:integer;beginreadln(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.Пример:302402 702 312 342 372 303 306 309...