Дана программа на языке ПАСКАЛЬ:
var k, n, i, d : integer;
BEGIN
d:=5; n:=50; k:=0;
for i:=1 to n do
if i mod d=0 then k:=k+1;
writeln (k);
END.
Тогда результатом работы этой программы является ...
Дана программа на языке ПАСКАЛЬ:
var n, S, i : integer;
BEGIN
n:=28; S:=n;
for i:=1 to n-1 do
if n mod i=0 then S:=S-i;
writeln (S);
END.
Тогда результатом работы этой программы является ...