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

Question

Информатика

Эмиль

30 сентября, 06:52

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

+2

Ответы (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.