program z1;
uses crt;
var a,b,c,i: integer;
begin
for a:=50 to 70 do begin i:=0;
for b:=1 to a do
if a mod b = 0 then
i:=i+b; writeln(a:4,i:5);
end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
