От программы записанной на алгоритмическом языке, перейдите к записи программы паскаль. определите,что - id140582420200224 от poroshind 24.02.2020 03:53

Question

Информатика: От программы записанной на алгоритмическом языке, перейдите к записи программы паскаль. определите,что будет напечатано в результате работы программы, если были введены следующие числа: 1; 5; -10; 3; -8; 6; 4; 0. алгоритм. язык алг. цел s,x нач s: =0 нц ввод х s: =s+x кц при х=0; вывод s кон

poroshind · Accepted Answer

Var a,b,c,d,i,f,g,h,n:integer; begin writeln( введите число ); readln(a); g:=0; c:=0; d:=0; i:=0; f:=0; writeln( введите число для сравнения ); readln(h); for b:=a downto 1 do begin if a mod b = 0 then writeln( его делитель == ,b); if a mod b = 0 then c:=b+c; if a mod b = 0 then if b mod 2 = 0 then d:=d+b; if a mod b = 0 then if b mod 2 0 then i:=i+1; if a mod b = 0 then f:=f+1;  if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i f a mod b = 0 then if b h then n:=n+1;  end; writeln( сумма его делителей...

MOGZ ответил