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

1 ответ

Посмотреть ответы

Megamozg

2205

1) С помощью while:
var

a,b,c,i:integer;

begin

i:=0;

b:=0;

writeln('Write 10 number:');

while i<10 do

begin

read(a);

b:=b+a;

i:=i+1;

end;

writeln('Average: ',b/10:0:0);

readln

end.

Хороший ответ

29 декабря 2022 13:16

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Faceit finder пишет что у меня закрытый профиль хотя это не так... Сетевая база данных предполагает такую организацию данных, при которой … не накладывается никаких ограничений на связи между объектами связи между... Откройте файл « Документ для создания оглавления » и отметьте стилем  «Заголовок 1» все абзацы, набранные красным цветом, отметьте стилем&nbs... Плиз помогите!!! Продумайте и изобразите в виде схемы (графа) структуру одного из следующих сайтов: ⦁ «Моя семья» ⦁ «Мой класс» Нарисуйте цветной... Begin GetTime(часы,минуты,секунды,миллисекунды); Выполнение тестов; GetTime(часы,минуты,секунды,миллисекунды); end. Как узнать время выполнения тесто...