Ответы
Ответ дал:
0
1.)
var
S: real;
i, j: byte;
begin
for i:=1 to 3 do
begin
S:=0;
for j:=2 to 2 do
begin
S:=i+j
end;
end;
writeln(S)
end.
Результат: 5
2.)
var
S: real;
i, j: byte;
begin
i:=1;
S:=0;
j:=15;
while (i<j) do
begin
S:=S+i*j;
i:=i+1;
j:=j-1;
end;
writeln(s)
end.
Результат: 308
var
S: real;
i, j: byte;
begin
for i:=1 to 3 do
begin
S:=0;
for j:=2 to 2 do
begin
S:=i+j
end;
end;
writeln(S)
end.
Результат: 5
2.)
var
S: real;
i, j: byte;
begin
i:=1;
S:=0;
j:=15;
while (i<j) do
begin
S:=S+i*j;
i:=i+1;
j:=j-1;
end;
writeln(s)
end.
Результат: 308
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад
10 лет назад