2. Решение «по-школьному»
var
n,s:integer;
begin
s:=0;
repeat
Read(n);
if (n mod 3=0) and (n mod 10=6) then s:=s+n
until n=0;
Writeln(‘Сумма отобранных чисел равна ‘,s)
end.
Пример
15 36 26 72 25 96 83 0
Сумма отобранных чисел равна 132
2. Решение «по-школьному»
var
n,s:integer;
begin
s:=0;
repeat
Read(n);
if (n mod 3=0) and (n mod 10=6) then s:=s+n
until n=0;
Writeln(‘Сумма отобранных чисел равна ‘,s)
end.
Пример
15 36 26 72 25 96 83 0
Сумма отобранных чисел равна 132