Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
27 декабря 2022 13:16
872
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы используя операторы цикла While, Repeat и For.
1
ответ
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.
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.
0
·
Хороший ответ
29 декабря 2022 13:16
Остались вопросы?
Еще вопросы по категории Информатика
3. Информационное сообщение объемом 10 Кб состоит из 10240 символов. Сколько символов содержит алфавит, при помощи которого было записано данное сообщ...
Переведите число 59, записанное в 10-й системе счисления в 2-ю, 8-ю и 16-ю системы счисления. Запишите решение и ответ....
КАкими будут значения j.k после выполнения условного оператора if>j then j:=k-2 else k:=k-2 Если исходные значения переменных равны j=3 k=5?...
Придумайте новый вид информационных услуг....
Алгоритм включает в себя ветвление, если: А)он составлен так, что его выполнение предполагает многократное повторение одних и тех же действий. Б)ход...