Mamonvah
5 год назад
дано натуральне число n визначити кількість цифр у цьому числіПаскаль
ОТВЕТЫ
Светослав
Oct 24, 2020
var a,k:int64;
begin
k:=1;
writeln('Vvedite chislo');
read(a);
while a>0 do
begin
a:=a mod 10;
k:=k+1;
end;
write('V chisle',k,' tsifr');
end.
begin
k:=1;
writeln('Vvedite chislo');
read(a);
while a>0 do
begin
a:=a mod 10;
k:=k+1;
end;
write('V chisle',k,' tsifr');
end.
353
Смежные вопросы:
