помогите пожалуйста срочно
написать программу вывода всех чисел [1056..50689], которые делятся нацело на 3 и на 6, но не делится на 8,9 и 5
написать программу вывода всех чисел [1056..50689], которые делятся нацело на 3 и на 6, но не делится на 8,9 и 5
More Questions From This User See All
Answers & Comments
Ответ:
var i:longint;
begin
for i:=1056 to 50689 do begin
if (i mod 3 = 0) and (i mod 6 = 0) and (i mod 8 <> 0) and (i mod 9 <> 0) and (i mod 5 <> 0) then write(i,' ');
end;
end.