1) Составить программу для нахождения суммы чисел 1 сотни, которая делится на 3. (ПАСКАЛЬ) 2) Составить программу для нахождения суммы чисел от 500 до 700. (ПАСКАЛЬ)

Предыдущий
вопрос Следующий
вопрос

Программа нахождения суммы чисел от 1 до 100, которая делится на 3 (язык Паскаль):

program SumDivisibleBy3;
var
sum, i: Integer;
begin
sum := 0;
for i := 1 to 100 do
begin
if i mod 3 = 0 then
sum := sum + i;
end;
writeln('Сумма чисел от 1 до 100, которая делится на 3: ', sum);
end.

Программа нахождения суммы чисел от 500 до 700 (язык Паскаль):

program SumBetween500And700;
var
sum, i: Integer;
begin
sum := 0;
for i := 500 to 700 do
begin
sum := sum + i;
end;
writeln('Сумма чисел от 500 до 700: ', sum);
end.