Чаплыгин
4 год назад
С клавиатуры вводится 20 чисел. Найдите сумму тех из них, которые делятся на 5 и на 7. Pascal ABC
ОТВЕТЫ
Nataliya
Oct 24, 2020
"на 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".
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".
682
Смежные вопросы:
