Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
27 декабря 2022 13:16
794
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы используя операторы цикла 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
Остались вопросы?
Еще вопросы по категории Информатика
Даны две дроби A/B и C/D (A, B, C, D - натуральные числа). Составить программу умножения дроби на дробь. Ответ должен быть несократимой дробью. Исполь...
Какие правила необходимо обязательно соблюдать при работе за компьютером...
Информационной моделью является 1) анатомический муляж 2) макет дома 3) модель корабля 4) диаграмма...
Все заглавные буквы русского алфавита закодированы неравномерным двоичным кодом, в котором никакое кодовое слово не является началом другого кодового...
Какие символы нельзя использовать в имени файла?...