program Pr;
var
x, cnt : Integer;
begin
Write('Введите число: ');
ReadLn(x);
cnt := 0;
repeat
x := x div 10;
Inc(cnt);
until x = 0;
WriteLn('Число состоит из ', cnt, ' цифр.');
end.
Определить кол-во цифр в числе (PASCAL)
Я начинающий...
Дано:
Целое положительное число n. Определить количество значищих цифр в числе.
Дано:
Целое положительное число n. Определить количество значищих цифр в числе.
Цитата:
Я начинающий...
нафига это писать?
Цитата:
Целое положительное число n. Определить количество значищих цифр в числе.
1. считываем целое положительное число
2. преобразовываем его при помощи функции IntToStr в строку
3. подсчитываем число символов в этой строке функцией Length
СПАСИБО!