Endok
8-ой: var N,a,y,z:real; begin Readln(a,y,z); N:=(a+51-sqrt(y-49))/(5-z); If (y<49) or (z=5) then begin If y<49 then Writeln('Число y < 49 Число в корне не может быть меньше 0'); If z=5 then Writeln('Число z=5 На 0 делить нельзя'); end else Writeln(N); end.
2 votes Thanks 0
srzontmp
А если y введено меньше 49, то выдаст ошибку, так как под корнем отрицательное число
Answers & Comments
var N,a,y,z:real;
begin
Readln(a,y,z);
N:=(a+51-sqrt(y-49))/(5-z);
If (y<49) or (z=5) then
begin
If y<49 then
Writeln('Число y < 49 Число в корне не может быть меньше 0');
If z=5 then
Writeln('Число z=5 На 0 делить нельзя');
end
else
Writeln(N);
end.