Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Неверний ответ - а
A2+B4
Если не сложно отметь как лучший
var
x,y: real;
i,n: integer;
begin
n: =1;
x: =1;
y: =1;
for i: =1 to 5 do
n: =n*i;
x: =-1.5*x;
y: =y*(x+1/n);
end;
writeln(y: 15: 5);
end.
var a: array[1..20] of integer; s,i: integer; begin
s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.
Популярные вопросы