Предмет: Информатика,
автор: vladik12322
составить программу на проверку является ли число однозначным двухзначным трехзначнам или четырехзначным
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Английский язык,
автор: anfisapopovskaya
Предмет: Геометрия,
автор: 34256724
Предмет: Математика,
автор: KAdhd
Предмет: Геометрия,
автор: nik130797
Предмет: Математика,
автор: lapochka81