Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
27 декабря 2022 13:16
899
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы используя операторы цикла 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
Остались вопросы?
Еще вопросы по категории Информатика
Толя, Петя, Саша и Ваня заняли первые четыре места в велокроссе. На вопрос, какие места они заняли, мальчики ответили: 1) Толя не занял ни первое,...
Значение арифметического выражения: 8^510 + 4^220 - 2^150 записали в системе счисления с основанием 2. Сколько цифр «1» содержится в этой записи?...
Есть 2 кувшина ёмкостью 3 и 8 литров.Как с помощью только этих кувшинов набрать из реки 7 литров воды?...
Продумайте состав, типы полей и ключ однотабличной базы данных: а) ТУРАГЕНТСТВО; б) ВИДЕОТЕКА; в) АВТОСАЛОН; г) РЕГИОНЫ РФ....
Сдать решение задачи 6-Странное устройство Полный балл: 100 Ограничение времени: 1 с Ограничение памяти: 512M Ограничение размера стека: 64M Задач...