1)Составить программу(паскаль) вывода на экран всех нечетных двухзначных чисел. 2)составить программу вычисления суммы всех трехзначных чисел, кратных 5

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

1) Программа вывода на экран всех нечетных двузначных чисел на языке Pascal:

program OddNumbers;

var
i: integer;

begin
for i := 11 to 99 do
begin
if i mod 2 <> 0 then
writeln(i);
end;
end.

2) Программа вычисления суммы всех трехзначных чисел, кратных 5 на языке Pascal:

program SumOfMultiplesOfFive;

var
i, sum: integer;

begin
sum := 0;
for i := 100 to 999 do
begin
if i mod 5 = 0 then
sum := sum + i;
end;
writeln('Сумма всех трехзначных чисел, кратных 5, равна: ', sum);
end.