Ответы
Ответ дал:
0
Ответ:
var
x , counter , sum :integer;
begin
read(x);
counter := 0;
while (x <> 0) do begin
sum := sum + x;
if( x mod 5 = 0 ) and ( x mod 2 = 0 ) then
counter := counter + 1;
read(x);
end;
write(sum,' ', counter);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад