Напишите программу на языке Паскаль для нахождение количества цифр в записи положительного целого числа x

@Cronalldo · Регистрация: 22.09.2013

Напишите программу на языке Паскаль для нахождение количества цифр в записи положительного целого числа x.

Новичок · 13.10.2013, 22:51

Pascal

var x,k:Integer;
begin
k:=0;
Write('x=');
Readln(x);
while x<>0 do
begin
k:=k+1;
x:=x div 10;
end;
Writeln('Количество цифр:',k);
Readln;
end.

@Cronalldo 0 / 0 / 0 Регистрация: 22.09.2013 Сообщений: 17
		1
	Напишите программу на языке Паскаль для нахождение количества цифр в записи положительного целого числа x 13.10.2013, 15:47. Показов 2436. Ответов 1 Метки нет (Все метки) Напишите программу на языке Паскаль для нахождение количества цифр в записи положительного целого числа x. 0

	13.10.2013, 22:51

Решение