Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы используя операторы цикла 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

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

Найти нужный

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

1. Сколько гигабайт информации содержится в сообщении объёмом четверть терабайта? 2. Укажите правильный порядок убывания перечисленных единиц измерени... begin if (y <200) and (x > 100) then writeln('ДА') else writeln('НЕТ') end. Было проведено 10 запусков этой программы, при которых в качестве з... Зарплата менеджера становить 200$ + відсоток від продажу: продаж до 500$ – 3%, 500 –1000$ – 5%, понад 1000$ – 8%. Користувач вводить з клавіатури ріве... Какая формула соответствует поиску документа с цитатой из трех слов? Игра| Инженер | Задача Игра Инженер Задача "Игра *Инженер Задача" "Игра Инж... При составлении расписания на вторник учителя высказали свои пожелания по поводу расположения первых пяти уроков. Учитель химии (Х) хочет иметь второй...