Question

Вывести на экран 10 трехзначных чисел, которые делятся на 3, но не делятся на 5 в паскале
Пример:
var x,k:integer;
begin
randomize;
k:=0;
while k<=10 do begin
for x:=random (900)+100
if (x mod 3) and (x mod 5 <> 0) then
k:=k+1;
writeln (x);
end;
end. - тут вроде примерно правильно, но нужно подправить​

Answer 1

Ответ:

Ответ:Ответ:

Какой класс?