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

2

Ответы и объяснения

2013-05-21T15:43:30+00:00

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.

 

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

2013-05-21T21:17:32+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.