Question

пожалуйста помогите даю последнии баллы ​

Answer 1

Ответ:

вот

Объяснение:

1)

var i, n, sum : integer;

begin

sum := 0;

for i := 1 to 10 do

begin

readln(n);

sum := sum + n * n;

end;

writeln(sum);

end.

2)

var i, sum : integer;

n : real;

begin

sum := 0;

for i := 1 to 15 do

begin

readln(n);

if n = trunc(n) then sum := sum + 1;

end;

writeln(sum);

end.

3) var n, m, i : integer;

begin

readln(n, m);

for i := n to m do

if i mod 2 = 0 then writeln(i);

end.

4) var n, i : integer;

begin

readln(n);

for i := 1 to n do

if n mod i = 0 then writeln(i);

end.