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

Question

Информатика

Дана

24 декабря, 01:28

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

+5

Ответы (1)

Знаете ответ на вопрос?

Аида · Answer 1

Program cisla;

uses crt;

var m, n:longint;

k:integer;

begin;

clrscr;

writeln ('введите число=') ;

readln (n) ;

m:=n;

k:=0;

while m0 do begin

k:=k+1;

m:=m div 10;

end;

writeln ('в числе = ', k,' цифр') ;

repeat until keypressed;

end.