1. Var
y:real;
i:integer:
………………………
y:=1;
For i:=2 to 4 do y:=y+i;
2. Var
y:real;
k:integer:
………………………
y:=2;
For k:=4 downto 1 do y:=y*k;
3. Var
y:real;
n:integer:
………………………
y:=5;
For n:=1 downto 4 do y:=y+n;
4. Var
y:real;
i:integer:
………………………
y:=1;
For i:=1 to 3 do
Begin
y:=y+1;
y:=y+i;
end;
5. Var
y:real;
i:integer:
………………………
y:=0;
For i:=4 to 6 do y:=y+i;
y:=y/10;
6. Var
s:real;
n:integer:
………………………

s:=0;
For n:=4 downto 3 do
Begin
s:=s+n;
s:=s*10;
end;

лера23451    3   12.01.2021 22:35    1