Работаем в Pascal ABC 1. Найти количество цифр меньше 6 в целом x. Тест: 254904 - 5 2. Найти сумму первой и последней цифры в целом x. Тест: 254904 - 6 3. Найти сумму самой большой и самой маленькой цифры в целом x Тест: 254904 - 9

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal ABC:

program CountDigits;
var
x, digit, sum, minDigit, maxDigit: integer;
countLessThanSix: integer;
begin
countLessThanSix := 0;
sum := 0;
minDigit := 9;
maxDigit := 0;
write('Введите число x: ');
readln(x);
while x <> 0 do
begin
digit := x mod 10;
if digit < 6 then
countLessThanSix := countLessThanSix + 1;
if (sum = 0) then
sum := digit
else if x < 10 then
sum := sum + digit;
if digit < minDigit then
minDigit := digit;
if digit > maxDigit then
maxDigit := digit;
x := x div 10;
end;
writeln('Количество цифр меньше 6: ', countLessThanSix);
writeln('Сумма первой и последней цифры: ', sum);
writeln('Сумма самой большой и самой маленькой цифры: ', minDigit + maxDigit);
end.

При вводе числа 254904 вывод будет следующим:

Введите число x: 254904
Количество цифр меньше 6: 5
Сумма первой и последней цифры: 6
Сумма самой большой и самой маленькой цифры: 9