Приписать к 1022 слева и справа по одной цифре так чтобы полученное шестизначное число делилось на 7, 8, 9 - Pascal ABC

Формулировка задачи:

Приписать к 1022 слева и справа по одной цифре так что бы полученное шестизначное число делилось на 7,8,9 программа должна быть через циклы заранее спасибо просто я не понял задачу

Код к задаче: «Приписать к 1022 слева и справа по одной цифре так чтобы полученное шестизначное число делилось на 7, 8, 9 - Pascal ABC»

textual
var
  i, j, r : integer;
begin
 r:=0;
 for i:=1 to 9 do begin
   for j:=0 to 9 do
     if ((i*100000+10220+j) mod 7=0) and ((i*100000+10220+j) mod 8=0) and ((i*100000+10220+j) mod 9=0)
      then begin r:=(i*100000+10220+j); break end;
   if r<>0 then Break
 end;
 if r=0 then WriteLn('Ничего подходящего не нашлось')
 else WriteLn('Нашлось. Искомое число = ',r)
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.333 из 5


СДЕЛАЙТЕ РЕПОСТ