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

Yogurt1958 Yogurt1958    2   17.05.2019 12:40    1

Ответы
RedomR RedomR  10.06.2020 17:28

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

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика