Д/З по теме «Алгоритмическая конструкция: цикл» ЗАДАЧА «Разбор числа на цифры»…

var a, st, summ, pr, count, min, max, count0, SummCh, pr3: integer; begin write ('Введите число '); readln (a); writeln; writeln ('Младшая цифра числа: ', a mod 10); max: =a mod 10; min: =max; Summ: =0; SummCh: =0; pr: =1; count: =0; count0: =0; pr3: =1; while a <> 0 do begin count: =count+1; Summ: =summ+a mod 10; pr: =pr*(a mod 10); if (a mod 10) mod 2=0 then SummCh: =SummCh+a mod 10; if (a mod 10 <> 0) and (a mod 10) mod 3=0) then Pr3: =Pr3*(a mod 10); if a mod 10=0 then count0: =count0+1; if a mod 10 > max then max: =a mod 10; if a mod 10 < min then min: =a mod 10; if a div 10=0 then St: =a mod 10; a: =a div 10; end; writeln ('Старшая цифра числа: ', St); writeln ('Сумма цифр числа: ', Summ); writeln ('Произведение цифр числа: ', Pr); writeln ('Количество цифр числа: ', count); writeln ('Минимальная цифра числа: ', min); writeln ('Максимальная цифра числа: ', max); writeln ('Количество нулевых цифр: ', count0); writeln ('Сумма четных цифр: ', SummCh); writeln ('Произведение цифр кратных 3: ', Pr3); writeln; end.