Выделите операторы, образующие тело цикла.
(Var i, x: integer; ]
Begin
[ж: = 0:1
For i:=1 to 10 do
Begin
[Write();)
[x=x+i:1
end;
[Write(i))
End.

Question

Информатика: Выделите операторы, образующие тело цикла. (Var i, x: integer; ] Begin [ж: = 0:1 For i:=1 to 10 do Begin [Write();) [x=x+i:1 end; [Write(i)) End.​

UTOYKA228 · Accepted Answer

var

i, n:integer;

price:real;

begin

n := 20;

price := 20.4;

for i := 1 to n do

writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');

end.

//вторая задача

var

i, f, n:integer;

begin

f := 453;

n := 10;

writeln('фунты граммы');

for i := 1 to n do

writeln(' ', i:2, i * f :11);

end.

//третья задача

var

i, n:integer;

k:real;

begin

n := 20;

writeln('Введите курс '); readln(k);

writeln('доллары рубли');

for i := 1 to n do

writeln(' ', i:2, i * k:13:2);

end.

Выделите операторы, образующие тело цикла.(Var i, x: integer; ]Begin[ж: = 0:1For i:=1 to 10 doBegin[Write();)[x=x+i:1end;[Write(i))End.​

MOGZ ответил

Выделите операторы, образующие тело цикла.
(Var i, x: integer; ]
Begin
[ж: = 0:1
For i:=1 to 10 do
Begin
[Write();)
[x=x+i:1
end;
[Write(i))
End.