Программа требует ручного ввода 10 числ
var a: array [1..10] of integer;
i , k: integer;
begin
for i:=1 to 10 do
readln(a[i]);
k:=0;
for i:=1 to 10 do
if a[i] div 10 =0
then k:=k+1;
writeln(k);
end.
Делим число на 2 и выписываем остатки
860 = 430·2 + 0
430 = 215·2 + 0
215 = 107·2 + 1
107 = 53·2 + 1
53 = 26·2 + 1
26 = 13·2 + 0
13 = 6·2 + 1
6 = 3·2 + 0
3 = 1·2 + <span>1
</span>
Ответ:
var a:array[1..100] of integer;
i,s,n:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i] mod 6=0) then
s := s + a[i];
writeln(s);
end.