Ернур – любознательный мальчик. он видел, как айым ловко выполняла различные операции с таблицей. ему - id1002104420191016 от maks200206 12.12.2021 23:15

Question

Информатика: Ернур – любознательный мальчик. он видел, как айым ловко выполняла различные операции с таблицей. ему также захотелось научиться этому. подготовь для него небольшие подсказки. запиши или обведи правильные ответы. а) команда для добавления таблицы в текст находится во вкладке [1] б) чтобы добавить столбец в таблице, необходимо:

maks200206 · Accepted Answer

{даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательностикратных 3 и не кратных 5}
program zadacha;
vara: array[1..255] of byte;i,n,k: integer;
beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end;
k:=0;writeln();for i:=1 to n do begin if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then begin k:=k+1; write(a[i]:6); end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.
Даны n натуральных чисел .определить и вывести количество членов последовательности кратных 3 и не к

Даны n натуральных чисел .определить и вывести количество членов последовательности кратных 3 и не к

MOGZ ответил