Kathrimeena
5 год назад
Плиззззз)))) срочно надо !!!!!
ОТВЕТЫ
Peakas
Jun 29, 2019
Var
a, s, i: integer;
begin
s := 0;a := 1;i := 0;
while (true) do
begin
readln(a);
if (a = 0) then break;
if (a mod 17 = 0) then
begin
s := s + a;
inc(i);
end;
end;
if (i lt;gt; 0) then print(s, i)
else write(NO);
end.
a, s, i: integer;
begin
s := 0;a := 1;i := 0;
while (true) do
begin
readln(a);
if (a = 0) then break;
if (a mod 17 = 0) then
begin
s := s + a;
inc(i);
end;
end;
if (i lt;gt; 0) then print(s, i)
else write(NO);
end.
154
Смежные вопросы:
