Задать вопрос
26 июля, 13:48

Программа, которая выводит числа, которые делятся на 3 но не делятся на 6

+3
Ответы (1)
  1. 26 июля, 16:24
    0
    Это в том случае, когда нужно, чтобы компьютер сам выдавал рандомные числа:

    var

    a:array [1 ... 100] of integer;

    i: integer;

    begin

    for i:=1 to 100 do begin

    a[i]:=random (100) - 50;

    if (a[i] mod 3=0) and (a[i] mod 60) then

    write (a[i]) ; end;

    end.

    если же есть определенный ряд чисел, то программа будет выглядеть вот так:

    var

    a:array [1 ... 100] of integer;

    i, n: integer;

    begin

    read (n) ; - здесь вводим кол-во чисел.

    for i:=1 to n do begin

    read (a[i]) ; - вводим числа с клавиатуры.

    if (a[i] mod 3=0) and (a[i] mod 60) then

    write (a[i], ' ') ; end;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Программа, которая выводит числа, которые делятся на 3 но не делятся на 6 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы