Вопрос, который вызвал трудности
Даны натуральные числа от 20 до 50. напечатать те из них, которые делятся на 3, но не делятся на 5.
Программа на Pascal
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
uses crt;
var i:integer;
begin
For i:=20 to 50 do
If (i mod 3=0) and (i mod 5 <> 0) then writeln(i);
end.