Проверте прогу. не полностю прощитевает

@Gira · Регистрация: 12.06.2014

Author24 — интернет-сервис помощи студентам

Pascal

program qq;
uses crt;
var x,y,z:real;
begin
write('Vvedit x =');
readln(x);
write('Vvedit y =');
readln(y);
if sqr(y)-2>x then z:=5*sqr(y)*sqrt(x-2);
 
if sqr(y)-2=x then z:=2*sqr(x);
 
if sqr(y)-2<x then z:=x*y;
 
writeln('z =',z);
end.

@erl27 · 18.06.2014, 12:11

Pascal

program qq;
 
uses
  crt;
 
var
  x, y, z: real;
 
begin
  write('Vvedit x =');
  readln(x);
  write('Vvedit y =');
  readln(y);
  if (y < 0) or (x < 0) then writeln('Корень квадратный из отрицательного числа')
  else begin
    if sqr(y) - 2 > x then z := 5 * sqr(y) * sqrt(x - 2)
    else
    if sqr(y) - 2 = x then z := 2 * sqr(x)
    else z := x * y;
    writeln('z =', z)
  end
end.

	18.06.2014, 12:11