Регистрация
lyaman2005
03.02.2023 12:35
Информатика
Есть ответ 👍

Составьте для следующей блок-схемы логическое выражение(решите только под "б")

137
467
Посмотреть ответы 1

Ответы на вопрос:

ВалеріяГалущинська
ВалеріяГалущинська
4,5(37 оценок)

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.

Популярно: Информатика