Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
27 декабря 2022 13:16
478
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы используя операторы цикла 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) (1 v 1) v (1 v 0) 2) ((1 v 0) v 1) v1) 3) (0 & 1) & 1 4) 1 &a...
ПОМОГИТЕ ПОЖАЛУЙСТА!!...
N=1920*1200 Глубина цвета=11000 в квадрате 78 герц в 16 степени t=14 в восьмой степени мин I за 2 минуты F=?...
Запишите IP- адрес, представленный четырьмя десятичными числами, в 32- битовом виде. а) 65.128.255.12 б) 192.48.0.24...
1. Где применяется растровая и векторная графика? 2. Как формируются растровое и векторное изображение? 3. Какие изменения происходит с изображениями...
Все предметы