Напишите в форме таблицы решение 1) sum:=0
For i:=7 to do 10 do
Sum:=sum+i;
2) var p, n:integer;
Begin
P:=1;
For n:=7 downto 3 do
P:=p*n;
Writeln(p)
End. ​

hekita14    1   28.04.2021 23:36    0