Var
i,s:integer;
begin
s:=0;
for i:=1 to 5 do s:=s+i;
Writeln('for: ',s);
s:=0; i:=1;
while i<=5 do begin
s:=s+i;
i:=i+1
end;
Writeln('while: ',s);
s:=0; i:=1;
repeat
s:=s+i;
i:=i+1
until i>5;
Writeln('repeat: ',s)
end.
<u>Результат</u>
for: 15
while: 15
repeat: 15
A = -5
A>0 ⇒ ЛОЖЬ
A<0 ⇒ ИСТИНА
A = -3*A = -3*-5 = 15
Ответ: 15
Мы так делали, только в конце F.
0,098 килобайт получается