Program Primer; var a, s: integer;
begin
s:= 0;
readln(a);
while a<>0 do begin
if (a mod 6 = 0) or (a mod 10 = 6) then
s := s + a;
readln(a);
end;
writeln(s);
end.
Какое число получится, если ввести ряд чисел 46, 12, 16, 66, 11, 0?

анапияабдыганиева    3   20.12.2020 19:05    2