Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать).
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы, используя операторы цикла While, Repeat и For.
Ответ
1. While:
var a,i,s:integer;
begin
s:=0;
i:=0;
while i 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);
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
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать)?
Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать).
Сделайте три варианта программы, используя операторы While, Repeat , For.
Ответить на вопрос
Juls11 17 авг. 2019 г., 19:33:02
while I < ; > ; 10 do
for I : = 1 do 10 to
Составьте программу по которой компьютер десять раз запросит ввод целых и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных?
Составьте программу по которой компьютер десять раз запросит ввод целых и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных.
Ответить на вопрос
Для ответа на вопрос необходимо пройти авторизацию или регистрацию.
Helper37 20 сент. 2019 г., 02:00:25
var s, nc, c, i : integer ;
for i : = 1 to 10 do
if odd(s) then inc(nc) ;
if not odd(s) then inc(c) ;
writeln(‘Чётных : ‘, c, ‘ Не чётных : ‘, nc) ;
МалаховА 20 сент. 2019 г., 02:00:28
Var a, b, c, d : integer ;
for a : = 1 to 10 do begin
if (d mod 2 = 0) then c : = c + 1 else d : = d + 1 ; end ;
writeln(‘чётных = > ; ‘, c, ‘нечётных = > ; ‘, d) ;
При подготовке материала использовались источники:
https://murnik.ru/sostavte-programmu-po-kotoroj-kompjuter-desjat-raz-zaprosit-vvod-ljubyh-chisel-i-v-rezultate-vyvedet-srednee-arifmeticheskoe-znachenie-vvedennyh-chisel-massiv-ne-ispolzovat-sdelajte-tri-varianta-pro
https://informatika.my-dict.ru/q/5338116_sostavte-programmu-po-kotoroj-komputer-desat/
https://informatika.my-dict.ru/q/176056_sostavte-programmu-po-kotoroj-komputer-desat/