с информатикой var a, answer: integer;
begin
answer:=0;
readln(a);
while a<>0 do begin
if (a mod 8 = 0) and (a > 9) and (a < 100) then
answer := answer + а;
readln(a);
end;
writeln(answer)
end.

БарсукВася    2   30.11.2020 23:27    2