Регистрация
Mrkeu
30.11.2020 00:10
Информатика
Есть ответ 👍

Напишите программу, которая ищет среди целых числовому отрезку [185457;185489]

162
488
Посмотреть ответы 2

Ответы на вопрос:

Asala213
Asala213
4,4(60 оценок)

Объяснение:

var b,i,x,j:integer;

s:string;

begin

for i:=185457 to 185489 do

begin

 x:=0;

 s:='';

 for j:=2 to (i div 2) do  

   if ((i mod j)=0) then begin

     x:=x+1;

     s:=s+j+' ';

     end;

   if x=2 then

     writeln (s,'\\ ',i);

 end;

end.

silvia16
silvia16
4,7(57 оценок)
Var  a: integer; begin   read(a);   writeln(1, a mod 100); end.

Популярно: Информатика