//первый вариант
var
i, summ: integer;
begin
summ : = 0;
for i : = 1 to 99 do
if i mod 2 = 1 then
summ : = summ + i;
writeln('сумма нечетных чисел от 1 до 99 равна: ', summ);
end.
//второй вариант
var
i, summ: integer;
begin
summ : = 0;
i : = 1;
while i < 100 do
begin
summ : = summ + i;
i : = i + 2;
end;
writeln('сумма нечетных чисел от 1 до 99 равна: ', summ);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Дайте ответы на соч по информатике 4 четверть
а я извиняюсь конечно, что такое соч?