• Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных
    чисел
    (массив не использовать).Сделайте три варианта программы,используя операторы While,Repeat ,For.

Ответы 1

  • Программа может выглядеть так:uses Crt;const n=10;var  a, i, Sum: integer;     Sred: real;beginClrScr;Sum:=0;i:=1;While i<=10 do begin   Write ('a = ');   ReadLn(a);   Sum:=Sum+a;   i:=i+1; end; Sred:=Sum/n; Writeln('Sred = ', Sred:6:2); WriteLn;Sum:=0;i:=1;repeat   Write ('a = ');   ReadLn(a);   Sum:=Sum+a;   i:=i+1; until i>n; Sred:=Sum/n; Writeln('Sred = ', Sred:6:2); WriteLn;Sum:=0;for i:=1 to n do  begin      Write ('a = ');      ReadLn(a);      Sum:=Sum+a;  end; Sred:=Sum/n; Writeln('Sred = ', Sred:6:2); ReadLn; end.
    • Автор:

      rhettqsbf
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years