Ответы
Ответ дал:
0
Ответ:
var s,n:integer;
begin
repeat
readln(n);
if (n mod 3=0) and (n<10) then s:=s+n;
until n=0;
writeln('S=',s);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад