# Код на ruby 2.2.3p173
a = []
a << [1]
for i in 2..10001
f = 0
a.each{ |group|
m = 1
group.each { |c|
m *= i % c
}
f += m
if m > 0
group << i
break
end
}
a << [i] if f == 0
end
p a
p a.size
var s,k:integer;
Begin
read(k);
s:= k div 100 + k div 10 mod 10 + k mod 10;
writeln(s);
End.
Слева устройства ввода, справа устройства вывода. Наверху процессор, т.к. управляет всеми устройствами ПК. В процессоре АЛУ (арифметико-логическое устройство) и УУ (управляющее). По центру, очевидно, внутренняя память, внутри ОЗУ и ПЗУ. Снизу внешняя память.
Var n: longint;
k: integer;
begin
k:=0;
write('Введите число: ');
readln(n);
while n>0 do
begin
if n mod 10 mod 2<>0 then
k:=k+1;
n:=n div 10;
end;
writeln('В числе ',k,' нечетных цифр');
readln;
<span>end.</span>