Question

Напишите программу,которая находит среднее арифметическое числа и выясняет чётное ли оно

Answer 1

Ответ:

program arith_mean_numb;

var k:integer;

x,y,z:real;

armenum:real;

x1:string;

label 10,20,30;

 begin

 30:  Writeln ('введите первое положительное целое число');

 

  10:  Read(x);

  if frac(x)<>0 then

    begin

Writeln ('Вы ввели дробное число, введите целое число еще раз');

      goto 10;

     

   end;

     Writeln ('введите второе положительное целое число');

   20:Read(y);

      if frac(y)<>0 then

    begin

Writeln ('Вы ввели дробное число, введите целое число еще раз');

      goto 20;

      end;

armenum:=(x+y)/2;

 Write('Среднее арифметическое: ',armenum);

 z:=armenum/2;

 if frac (z) <>0 then Writeln (' дробное нечетное число')

 else Writeln (' четно число');

 Writeln ('Будете еще находить среднее арифметическое число и проверят его на четность, нечетность 1 - да, любое число - нет');

 Read (k);

 if k=1 then goto 30;

end.

Объяснение: