чтобы получить цифры числа
var digit,num: integer;
while num< > 0 do
begin
digit : = num mod 10;
num : = num div 10;
{обработать цифру}
end;
вот к примеру для первых двух
while num< > 0 do
begin
digit : = num mod 10;
num : = num div 10;
sum: =sum+digit
end;
while num< > 0 do
begin
digit : = num mod 10;
num : = num div 10
end;
digit - первая цифра
"солнце" - круг с точкой в центре"идти" - две ноги"хлеб" - полукруг"рот" - сильно вытянутый полуовал вроде так
Поделитесь своими знаниями, ответьте на вопрос:
Сколько кбайтов составляют 2^17 битов?