СРОЧНО ДАМ 35 БАЛОВ ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ ФУНКЦИЮ НАХОЖДЕНИЯ СУММЫ НЕЧЕТНЫХ ЧИСЕЛ ,ДИАПОЗОНОМ 1.100;
СРОЧНО ДАМ 35 БАЛОВ
ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ ФУНКЦИЮ НАХОЖДЕНИЯ СУММЫ НЕЧЕТНЫХ ЧИСЕЛ ,ДИАПОЗОНОМ 1.100;
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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
Не нашли ответ?
Похожие вопросы