Question

Исправьте ошибки

program Variant_1;
var y,x,N,a,b:real;
begin
write('Введите свой вариант N:');
readln(N);
a:=0.2*N;
b:=a+N;
write('Введите х:');
readln(x);
if x =b then y:=N*N-x*x;
writeln('y=',y);
end.

Answer 1

Ответ:

Объяснение:

program Variant_1;

var

 y,x,N,a,b:real;

begin

 write('Введите свой вариант N:');

 readln(N);

 a:=0.2*N;

 b:=a+N;

 write('Введите х:');

 readln(x);

 

if x<a then y:=2*x+n

 else

   if x<b then y:=-3*(n+x)  

   else y:=N*N-x*x;

 writeln('y=',y);

end.