Var
n, s: integer;
begin
readln(n);
s := n mod 10 + n div 10000;
writeln(s);
end.
Смысл этой задачи проверить в том , что является ли сумма предыдущих чисел , заданному числу . Вот и вся программа !
Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>
010000001000000011010111000010 000100101100000001000100010001010110000000010 100010010110000000110010100101000100100010111
C)сетевым;
a)в XIX ;
d)интегральные микросхемы