Составьте программу вычисления суммы чисел в диапазоне то 1 до 100
Составьте программу вычисления суммы чисел в диапазоне то 1 до 100
Гость
Ответ(ы) на вопрос:
ГостьКаких чисел? Если нечётных, то вот программа вычисления нечётных чисел:
var i, s: integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 2<>0) then s:=s+i;
end.
Не нашли ответ?
Похожие вопросы