ПОМОГИТЕ ПОЖАЛУЙСТА ВООБЩЕ ГОРЮ!!!!!!!!! НАЙДИТЕ СУММУ НЕЧЁТНЫХ ЧИСЕЛ ИЗ ПРОМЕЖУТКА ОТ...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА ВООБЩЕ ГОРЮ!!!!!!!!! НАЙДИТЕ СУММУ НЕЧЁТНЫХ ЧИСЕЛ ИЗ ПРОМЕЖУТКА ОТ 11 ДО 99!!!!!! ЭТО НАДО НА ПАСКАЛЕ НАПИСАТЬ!!!!!!!! НАЙТИ СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ ЧИСЕЛ ОТ 1 ДО 50!!! ТОЖЕ НА ПАСКАЛЕ НАПИСАТЬ!!!!!! ПОЖАЛУЙСТА!!!! ПОМОГИТЕ!!!!!!!!!!!1

Answer 1

Program Poluotlichnik_1;
const n=99;
var
  sum,i:integer;
begin
  sum := 0;
  for i:=1 to n do  
    if i mod 2 = 1 then
      sum := sum + i;
  writeln('Сумма нечетных чисел равна ',sum,);
end.

Program Poluotlichnik_2;
const n=50;
var
  sum,i:integer;
begin
  sum := 0;
  for i:=1 to n do
    sum := sum + i;
  writeln('Среднее арифметичесоке равно ',sum/50,);
end.

Answer 2

1)

var s,i:integer;

begin

s:=0;

for i:=11 to 99 do

if i mod 2 = 1 then s:=s+i;

writeln(s);

end.

 

2)

var s,i:integer;

begin

s:=0;

for i:=1 to 50 do

s:=s+i;

writeln(s/50);

end.

 

Вопросы недочеты в ЛС