Написать программу лёгкую в поскаль со всеми значениями

Question

Написать программу лёгкую в поскаль со всеми значениями

Answer 1

Program cisla;
uses crt;
var m,n:longint;
k:integer;
begin;
clrscr;
writeln ('введите число=');
readln (n);
m:=n; 
k:=0;
while m<>0 do begin 
k:=k+1;
m:=m div 10;
end;
writeln ('в числе =',k,' цифр');
repeat until keypressed;
end.

Comments

Да не тип любая программа на выбор нет определённой темы

---

дай мне свою ссылку на вк )я тебе напишу и скрины скину того что должно получиться

---

Ок ща

---

Не получается

---

Крч вбей Егор Григорьев там фотка я в красной футболке

---

ок

---

а откуда ты ?

---

Пермь

---

Нашёл?

---

по моему я тебя нашла