составить программу на проверку является ли число однозначным двухзначным трехзначнам или четырехзначным
Ответы
Ответ дал:
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.
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад