Найти количество положительных чисел, кратных 7 (информатика 9 класс):
дана последовательность из N чисел, количество чисел вводится с клавиатуры. Числа выбираются из промежутка [ 10; 50 ] .
Пожалуйста, кто в этом разбирается, напишите программу, нужна пятёрка. Есть ещё две задачи, дам хорошие баллы.
дана последовательность из N чисел, количество чисел вводится с клавиатуры. Числа выбираются из промежутка [ 10; 50 ] .
Пожалуйста, кто в этом разбирается, напишите программу, нужна пятёрка. Есть ещё две задачи, дам хорошие баллы.
More Questions From This User See All
Answers & Comments
var i,M,K,N:integer;
begin
Readln(N);
K:=0;
for i:=1 to N do
begin
readln(M);
if M mod 7 = 0
then
begin
K:=K+1;
end;
end;
write(K);
end.