Склавиатуры вводится 20 чисел. найдите сумму тех из них, которые делятся на 5 и на 7. pascal abc

227

442

Посмотреть ответы 3

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

alinana554

Информатика

4,6(26 оценок)

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin var mas: =readarrinteger(20); var r: =mas.where(t-> (t mod 5=0) and (t mod 7 =0)); writeln('summa=',r.sum); end.

boyko3333

Информатика

4,7(96 оценок)

"на 5 и на 7" - это значит, что число должно делится и на 5, и на 7? если да, то: program sum; var a, b, i: integer; begin; for i: =1 to 20 do begin; read(a); if (a mod 5 = 0) and (a mod 7 = 0) then b+=a; end; write(b); end.если нет, то замени "and" на "or".