A) 7,68 б) <span>5000000
2. </span><span>13421772.8
</span>3. <span>11</span>
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
Третяя правильная ну последняя
Var
r:real;
Begin
Write('Введите радиус круга: ');ReadLn(r);
WriteLn('Площадь круга: ',Pi*r*r);
WriteLn('Длина окружности: ',2*Pi*r)
End.
Алгоритм конец есть начало и конец