Составить программу для определения количества цифр введенного с клавиатуры натурального числа

@TIMA52 · Регистрация: 11.03.2015

Author24 — интернет-сервис помощи студентам

Составить программу для определения количества цифр введенного с клавиатуры
натурального числа

@SuperKir · 11.03.2015, 18:53

Delphi

var x,k:integer;
 
begin
    ReadLn (x);
    k:=0;
    while x>0 do
    begin
        x:=x div 10;
        inc(k)
    end;
    WriteLn (k);
    ReadLn
end.

@TIMA52 0 / 0 / 0 Регистрация: 11.03.2015 Сообщений: 23
		1
	Составить программу для определения количества цифр введенного с клавиатуры натурального числа 11.03.2015, 18:49. Показов 1972. Ответов 1 Метки нет (Все метки) Составить программу для определения количества цифр введенного с клавиатуры натурального числа 0

	11.03.2015, 18:53

Составить программу для определения количества цифр введенного с клавиатуры натурального числа

Решение