Какое значение примет переменная Yи S после выполнения программы? А) Var Y,X: integer;
Begin
Y:=1; X:=10;
Repeat
Y:=x*x;
X:=X-4;
Until x =2 do
i:=i-1;
s:=s+i*i;
writeln (‘s=’,s);
end.

лолл18    3   21.12.2020 15:02    32