Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.
</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.
<h2>PascalABC.NET 3.4.2, сборка 1978 (12.02.2019)
</h2>
- program task31143948;
- const
- N = 12;
- var
- arr: array[1..N] of real;
- Sum: real;
- begin
- Sum := 1;
- for var i := 1 to N do
- begin
- arr[i] := Random()*4 - 1;
- Writeln(arr[i]:5:2);
- if arr[i] < 0 then
- Sum := Sum * arr[i]
- end;
- if Sum = 1 then
- Write('ПРОИЗВЕДЕНИЕ = 0')
- else
- Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);
- end.
Учить надо и на уроках слушать
Ответ 4510
s=0
for i in 15..25
s+= i**2
end
p s
6- c
8-c
9-b
10-a
В 10 не уверен.