Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане число.

277

456

Посмотреть ответы 3

Ответы на вопрос:

домкорытосыгуьдатсс

Информатика

4,7(38 оценок)

var

i, n, sum: integer;

begin

i := 100;

readln(n);

while i > 0 do

begin

sum += i;

i -= n;

end;

writeln('ответ: ' + sum / (100 div n));

end.

Объяснение:

dilyara112005

Информатика

4,4(56 оценок)

var

i, n, sum: integer;

begin

i := 100;

readln(n);

while i > 0 do

begin

sum += i;

i -= n;

end;

writeln('ответ: ' + sum / (100 div n));

end.

mregor3

Информатика

4,5(40 оценок)

1) var a: integer; begin for a: =1 to 7 do writeln('я учусь в гимназии 12'); end.2)var a: integer; begin for a: =15 to 20 do writeln(a); end.3)var a,b,c: integer; beginwriteln('введите первое число'); read(a); writeln('введите второе число'); read(b); c: =a+b; if (a< 100) and (a> 1) and (b> 1) and (b< 100) thenwriteln('сумма чисел равна: ',c)elsewriteln('ошибка, числа не в ходят в диапазон 1< n< 100'); end.