НС
Наталья Савицкая
проверьте верна ли программа на паскале
ошибок не выдает, писала на турбо паскале
program zad1_var4;
uses crt;
const
a=1.65;
b=1.4;
var
x, q: real;
begin
clrscr;
writeln (' Kontrol. rabota 1, varian 4');
writeln (' -------------shifr -----------');
writeln (' a= ',a:4:2);
write ('Vvedite x = '); readln(x);
if x < b then q:=pi*sqr(x)-7/sqr(x) else
if x = b then q:=a*(x*x*x)+7*sqrt(x)
else q:=ln(x+7*sqrt(abs(x+a)))/ln(10);
writeln ('Q= ',q:7:4);
writeln ('------');
readln;
end.