bigmen
Опубликовано 7 лет назад по предмету Информатика от bigmen


дана последовательность целых чисел x1 x2 xn и натуральное n получить последовательность чисел кратных 3 и не кратных 5

  1. Ответ
    Ответ дан ivanpakalnishkis

    var

     i,n,a:integer;

    begin

     readln(n);

    for i:=1 to n do

    begin

     read(a);

    if (a mod 3=0)and(a mod 5>0) then write(a,' ');

    end;

    writeln;

    end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц