Написать программу в Паскале . Программу вывода на экран всех чисел кратных 3 и 5 от 1 до 1000

23 Апр 2021 в 19:42
118 +1
0
Ответы
1

program MultiplesOf3And5;

var
i: integer;

begin
for i := 1 to 1000 do
begin
if imod3=0i mod 3 = 0imod3=0 and imod5=0i mod 5 = 0imod5=0 then
writelniii;
end;
end.

17 Апр 2024 в 18:47
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир