СРОЧНО ДАМ 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
