Предмет: Информатика,
автор: krasivo1996
дан массив из n натуральных чисел .определить количество элементов кратных 3 и не кратных 5
Ответы
Автор ответа:
0
VAR
i, el, kol, n: Integer;
BEGIN
Read(n);
kol := 0;
for i := 1 to n do begin
Read(el);
if (el mod 3 = 0)and(el mod 5 <> 0) then Inc(kol);
end;
Write(kol);
END.
i, el, kol, n: Integer;
BEGIN
Read(n);
kol := 0;
for i := 1 to n do begin
Read(el);
if (el mod 3 = 0)and(el mod 5 <> 0) then Inc(kol);
end;
Write(kol);
END.
Интересные вопросы
Предмет: Математика,
автор: angelasos2010
Предмет: Литература,
автор: GurEl2101
Предмет: Английский язык,
автор: tanirbergen220511
Предмет: Геометрия,
автор: барс1997
Предмет: Математика,
автор: efremovapolya