Вывести все натуральные числа от 20 до 50 кратные 3 и не кратные 5 ( на паскале)
Вывести все натуральные числа от 20 до 50 кратные 3 и не кратные 5 ( на паскале)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Program numbers;
var
i: integer;
begin
for i := 20 to 50 do
begin
if (i mod 3 = 0) and (i mod 5 <> 0) then
begin
writeln(i);
end;
end;
end.