Составьте программу по которой компьютер десять раз запросит ввод любых чисел и в результате сообщит

Составьте программу,по которой компьютер 10 раз запросит ввод любых чисел и в итоге выведет среднее арифметическое значение введенных
чисел
(массив не использовать).Сделайте три варианта программки,используя операторы While,Repeat ,For.

Ярослава
Информатика
2019-06-17 01:51:13
2

Пазиянц Семён 2019-06-17 01:53:59

1. While:
var a,i,s:integer;
begin
s:=0;
i:=0;
while ilt;10 do
begin
i:=i+1;
write(‘a = ‘);
readln(a);
s:=s+a;
end;
writeln(‘Среднее арифметическое = ‘,s/10);
end.

2. Repeat
var a,i,s:integer;
begin
s:=0;
i:=0;
repeat
i:=i+1;
write(‘a = ‘);
readln(a);
s:=s+a;
until i=10;
writeln(‘Среднее арифметическое = ‘,s/10);
end.

3. For:
var a,i,s:integer;
begin
s:=0;
for i:=1 to 10 do
begin
write(‘a = ‘);
readln(a);

Инструкция по подготовке дипломов СПО по требованиям 2023 года

s:=s+a;
end;
writeln(‘Среднее арифметическое = ‘,s/10);
end.

Пример:
a = 4
a = 6
a = 9
a = 7
a = 1
a = 3
a = 6
a = 5
a = 4
a = 8
Среднее арифметическое = 5.3

Денис Лепнухов 2019-06-17 01:57:44

Программа может смотреться так:

uses Crt;
const n=10;
var a, i, Sum: integer;
Sred: real;
begin
ClrScr;
Sum:=0;
i:=1;
While ilt;=10 do
begin
Write (‘a = ‘);
ReadLn(a);
Sum:=Sum+a;
i:=i+1;
end;
Sred:=Sum/n;
Writeln(‘Sred = ‘, Sred:6:2);
WriteLn;

Sum:=0;
i:=1;
repeat
Write (‘a = ‘);
ReadLn(a);
Sum:=Sum+a;
i:=i+1;
until igt;n;
Sred:=Sum/n;
Writeln(‘Sred = ‘, Sred:6:2);
WriteLn;

Sum:=0;
for i:=1 to n do
begin
Write (‘a = ‘);
ReadLn(a);
Sum:=Sum+a;
end;
Sred:=Sum/n;
Writeln(‘Sred = ‘, Sred:6:2);
ReadLn;
end.

Источник: obrazovalka.com

50+лучший

Найди верный ответ на вопрос ✅ «50+лучший Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.

Новые вопросы по информатике

Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536