Ответ:
sum = sum + i
Объяснение:
Телом цикла является тот кусочек кода, который заключен внутри оператора цикла (в данном случае - это for)
Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.
1.
uses crt;
var i,n:integer;
A:array[1..4] of integer;
begin
n:=1;
for i:=1 to 4 do
begin
read(A[i]);
n:=n*A[i];
end;
writeln(n);
end.
2^ 31 = <span>2.147.483.648
n = 31</span>
идеи многих своих изобретений человек подглядел в природе.