(P*R)+(P*не R)+(Q*R)+(не P*Q*R)=R+(Q*R)+(не P*Q*R)=R+(не P*Q*R)=R+(не P*Q)
если неправильно, разрешаю прибить меня:D
Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.
I равно 1, цикл выполняться не будет, y так и останется 1.
2*2=4
????!!!?!!?!!?!!!?!??