Question

СРОЧНО. информатика Паскаль. помогите со всеми заданиями пожалуйста.​

Answer 1

Ответ:

1.

program aaa;

var

 a,b,c : integer;

 y : real;

 begin

  writeln('Ввод данных : ');

  read(a,b,c);

  y := (sqr(a+b+c))/(a + b) - (2*sqrt(a*b)/(b-c));

  writeln(y);

 end.

2.

program aaa;

var

 x,y,i,sum,j: integer;

 begin

   read(x,y);

 for i := x + 1 to y - 1 do

   begin

 inc(j);

 sum := sum + i;

 end;

 writeln('Колво : ',j,' Сумма : ',sum);

 writeln('Числа : ');

 for i := x + 1 to y - 1 do

   write(i,' ');

 end.

3.

program aaa;

var

 ms : array [0..10] of integer;

 i,j : integer;

 

 begin

   for i := 1 to 10 do

   begin

     ms[i] := random(250);

       if (ms[i] mod 4 = 0) then

         inc(j);

   end;

   writeln('Количество чисел кратных 4 : ',j);

     

 end.

Объяснение: