Информатика, вопрос задал semen77 , 10 лет назад

Решить задачи • Найдите сумму цифр числа; • Найдите первую цифру числа; • Поменяйте порядок цифр числа на обратный; • Найдите количество четных цифр числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.

Ответы на вопрос

Ответил Hemul
0

Чтобы получить цифры числа

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 - первая цифра

Новые вопросы