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

Question

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

Answer 1

Program ololo;
var a,b:integer;
begin
read(a);
if a = 0 then begin write(1); exit; end;
while a <> 0 do
begin
  inc(b);
  a := a div 10;
end;
write(b);
end.

Comments

ну да, прога предлагает ввести число) значит у меня более удобный интерфейс)

---

О каком итерфейсе тут вобще может идти речь?

---

IamHindiChunk кинь в комменты решение, я не видел его

---

неоткуда взять, я сразу сюда писал( у меня примерно также, только нет if a = 0 then begin write(1); exit; end; так как a - положительное целое, и writeln еще один перед read(a) для ввода числа

---

зачем такие сложности? Можно ведь просто вывести длину строки

---

Plugin, я оказывается не с тобой спорил) твое решение только что увидел внизу)

---

Ахахаха

---

Забавно вышло

---

молодец, хорошее решение) просто вдруг им нельзя строки использовать

---

Ну в условии этого не было )

Answer 2

Вот так гораздо проще.

var s:string;
begin
readln(s);
writeln(length(s));
end.