Составьте программу, по которой компьютер десять раз запросит ввод всех чисел
Составьте программу, по которой компьютер 10 раз запросит ввод всех чисел и в итоге выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы используя операторы цикла While, Repeat и For.
Задать свой вопрос1 ответ
Галина Чернига
1) С помощью while:
var
a,b,c,i:integer;
begin
i:=0;
b:=0;
writeln('Write 10 number:');
while ilt;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 ilt;10 do
begin
read(a);
b:=b+a;
i:=i+1;
end;
writeln('Average: ',b/10:0:0);
readln
end.
Ljubov Gavjukova
Ща другие будут
Агата Размадзе
2) С поддержкою repeat
Ванек Бартош
vara,b,c,i:integer;begin i:=0; b:=0; writeln('Write 10 number:'); repeat read(a); b:=b+a; i:=i+1; until i=10; writeln('Average: ',b/10:0:0); readlnend.
Ruslan
3) С подмогою for
Семён Термус
vara,b,c,i:integer;begin b:=0; writeln('Write 10 number:'); for i:=1 to 10 do begin read(a); b:=b+a; end; writeln('Average: ',b/10:0:0); readlnend.
Илья Герлит
Спасибо!)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов