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

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.

Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.

• Обратная связь
• Правила сайта

Источник: www.soloby.ru

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

Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы, используя операторы цикла 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

Источник: murnik.ru

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

Составьте программу по которой компьютер 10 раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введённых чисел массив не использует сделайте три варианта программы используя операторы цикла в while repet и for
номер 2 и 4 пожалуйста помогите !

Казимир Будинкин Вопрос задан 24 сентября 2019 в 10 — 11 классы, true»> Поделиться

Комментариев (0)

24 Цикл for. Обход элементов функции range Python

18 Цикл while Python

1 Ответ (-а, -ов)

var
i, j, k: Integer;

begin
repeat
begin
WriteLn(‘число: ‘);
ReadLn(i);
k := k + 1;
j := j + i;
end
until k = 10;
WriteLn(‘Среднее арифметическое=’, j / 10);
end.

2.
program ddg1;
var i,j,k:Integer;
begin
while k<>10 do begin
WriteLn(‘число: ‘);
ReadLn(i);
k:=k+1;
j:=j+i;
end;
WriteLn(‘Среднее арифметическое=’,j/10);
end.

var
i, j: Integer;

begin
for i := 1 to 10 do
begin
WriteLn(‘Введите число:’);
readln(i);
end;
j := j + i;
WriteLn(‘Среднее арифметическое = ‘, j / 10);
end.

4. Таблица умножения:

var
n, m: integer;

begin
for n := 1 to 10 do
for m := 0 to 10 do
WriteLn(n, ‘*’, m, ‘=’, n * m);
end.

Анатолий Ростригин Отвечено 24 сентября 2019

• ‘ data-html=»true»> Поделиться
• Комментариев (0)

Источник: matfaq.ru