Ответ(ы) на вопрос:
Гостьvar
a, s, i: integer;
begin
s := 0; a := 1; i := 0;
while a <> 0 do
begin
readln(a);
if (a mod 17 = 0) then
begin
s := s + a;
inc(i);
end;
end;
if s <> 0 then print(s, i-1) else write('NO');
end.
Не нашли ответ?
Похожие вопросы