var i,j,n,s:integer; begin readln(n); for i:=1 to n do begin s:=0; for j:=1 to i do s:=s+2j-1; writeln(i,'',i,'=',s); end; re

Question

4 года назад

7

var i,j,n,s:integer; begin readln(n); for i:=1 to n do begin s:=0; for j:=1 to i do s:=s+2j-1; writeln(i,'',i,'=',s); end; re

var
i,j,n,s:integer;
begin
readln(n);
for i:=1 to n do
begin
s:=0;
for j:=1 to i do
s:=s+2*j-1;
writeln(i,'*',i,'=',s);
end;
readln;
end.
Составьте блок схему на эту задачу пожалуйста.
Паскаль

Знания

Информатика

1 ответ:

gexzcv · Answer 1 · 2020-12-10T07:00:28+03:00

gexzcv4 года назад

0 0

Прикрепил изображение.

var i,j,n,s:integer; begin readln(n); for i:=1 to n do begin s:=0; for j:=1 to i do s:=s+2*j-1; writeln(i,'*',i,'=',s); end; re

var i,j,n,s:integer; begin readln(n); for i:=1 to n do begin s:=0; for j:=1 to i do s:=s+2j-1; writeln(i,'',i,'=',s); end; re