решение задач с помощью цикла while Опции

[Yaroslav]

1)найти количество цифр числа с помощью цикла while!!!
2)найти вторую цифру числа с помощью цикла while!!!
3)найти среднюю цифру числа если в числе нечётное количество цифр с помощью цикла while!!!
4)каких цифр в числе больше?единиц или нулей?с помощью цикла while!!!
5)получить число записанное теми же цифрами в обратном порядке с помощью цикла while!!!
6)выяснить является ли число палиндромом с помощью цикла while!!!
7)найти первую цифру числа с помощью цикла while!!!

Внимательнее смотри на правила.

1. Заголовок или название темы должно быть  информативным и понятным другим посетителям форума.

Сообщение отредактировано: volvo - 4.12.2004 14:43

[volvo]

1.

Код

var
 n, count: integer;
begin
 write('n = '); readln(n);
 count := 0;
 while n > 0 do
   begin
     inc(count);
     n := n div 10;
   end;
 writeln('count = ', count)
end.