Предмет: Информатика, автор: vladik12322

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

 

Ответы

Автор ответа: Kitsu
0

var i,k:integer;

begin

readln(n);

while i>0 do begin

k:=k+1;

i:=i div 10;

end;

writeln(k,'-znachnoe');

end.

Похожие вопросы