СРОЧНО ДАМ 35 БАЛОВ
ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ ФУНКЦИЮ НАХОЖДЕНИЯ СУММЫ НЕЧЕТНЫХ ЧИСЕЛ ,ДИАПОЗОНОМ 1.100;
Аноним:
Т.е. нужна сумма 1+3+5+..+99 ?
Наверно
так это сумма членов арифметической прогрессии)))
Ну хз,такую программу дали диопазонов 1..100;
Нверно от 1 до 100 вроде
что нужно выводить на экран в результате работы программы?
Хз
Чтобы наверно выдавалось нечетное число с диапозоном от 1 до 100 вроде
Ответы
Ответ дал:
1
var a,b,c:integer;
begin
b:=0;
for a:=1 to 100 do begin
if (a mod 2 <> 0) then b:=a+b;
end;
writeln('сумма нечётных чисел в заданном диапазоне = ', b);
end.
begin
b:=0;
for a:=1 to 100 do begin
if (a mod 2 <> 0) then b:=a+b;
end;
writeln('сумма нечётных чисел в заданном диапазоне = ', b);
end.
А еще одну поможите?
с удовольствием
СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ НАХОЖДЕНИЯ ПЕРИМЕТРА ПРЯМОУГОЛЬНИКА ПО ЗАДАННЫМ КООРДИНАТАМ ЕГО ВЕРШИН АBCDE
Ответ дал:
1
var
i,s:integer;
begin
s:=0;
i:=1;
while i<=100 do begin
s:=s+i; i:=i+2
end;
Writeln('Сумма нечетных чисел на [1;100] равна ',s)
end.
Тестовое решение:
Сумма нечетных чисел на [1;100] равна 2500
i,s:integer;
begin
s:=0;
i:=1;
while i<=100 do begin
s:=s+i; i:=i+2
end;
Writeln('Сумма нечетных чисел на [1;100] равна ',s)
end.
Тестовое решение:
Сумма нечетных чисел на [1;100] равна 2500
Похожие вопросы
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад