Question

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

Answer 1

Ответ:

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

Какой класс?

Answer 2

Ваш код в Pascal близок к правильному, но есть небольшие ошибки в синтаксисе. Вот исправленный код, который выводит на экран 10 трехзначных чисел, которые делятся на 3, но не делятся на 5:

pascalCopy code
program ThreeDigitNumbers;
var
  x, k: integer;
begin
  randomize;
  k := 0;
  
  while k < 10 do
  begin
    x := random(900) + 100;
    if (x mod 3 = 0) and (x mod 5 <> 0) then
    begin
      writeln(x);
      k := k + 1;
    end;
  end;
end.

В этом коде мы исправили следующие ошибки:

1. В операторе if были использованы операторы and и <> вместо = и <>, чтобы проверить условия правильно.
2. Переменная k инициализирована значением 0.
3. Условие k <= 10 изменено на k < 10, чтобы цикл завершился после вывода 10 чисел.