Question

ПОМОГИТЕ С ИНФОРМАТИКОЙ СРОЧНООО!!!!!!!!!!!!!!!!!!!!!

Answer 1

2)
program Minus;
var
  X1, Y, P: integer;
begin
  writeln('Введите значение X1');
  Readln(X1);
   writeln('Введите значение Y');
  Readln(Y);
  P := X1-Y;
  writeln(P);
end.

3)
var
  a, b, y: real;
begin
  write('Введите a, b: ');
  readln(a,b);
  y := (a*b)/(sqrt(a)-abs(b));
  writeln('y = ', y:2:4);
readln;
end.

4)
var
  x, y: real;
begin
  write('Введите x: ');
  readln(x);
  if x > 0 then
    y := (3*sqr(x)-2)/(3*x+1)
  else
    y := (3*sqr(x)-3*x+2)/(x-2);
  writeln('y = ', y:2:4);
readln;
end.

5)
var
  N: integer;
begin
write('Введите число: ');
readln(N);
if N mod 3 = 0 then
  writeln('Число ', N,' кратно 3.')
else
  writeln('Число ', N,' некратно 3.');
readln;
end.

6)
var
  i: byte;
begin
for i := 10 to 99 do
  write(i:4);
readln;
end.