1.
program z1;
var i,n,S: integer;
begin
write ('n = ');
read (n);
S:=0;
write ('S = ');
for i:=1 to n do
begin
write (i*2-1,'^2');
if i<n then write (' + ') else write (' = ');
S:=S + sqr(i*2-1)
end;
write (S)
end.
2.
program z2;
var i,n,S: integer;
begin
write ('n = ');
read (n);
S:=0;
i:=1;
write ('S = ');
repeat
write (i*2-1,'^2');
if i<n then write (' + ') else write (' = ');
S:=S + sqr(i*2-1);
i:=i+1
until i>n;
write (S)
end.
3.
program z3;
var i,n,S: integer;
begin
write ('n = ');
read (n);
S:=0;
i:=1;
write ('S = ');
while i<=n do
begin
write (i*2-1,'^2');
if i<n then write (' + ') else write (' = ');
S:=S + sqr(i*2-1);
i:=i+1
end;
write (S)
end.
Объяснение:
картинки
пр нет
Объяснение: