profile
Опубликовано 2 года назад по предмету Информатика от CELESTIATYAN

Напишете программу ,которая вычисляет количество цифр числа. Используйте функцию.
Помогите пожалуйста.
Буду очень благодарна.

  1. Ответ
    Ответ дан petyaGavrikov
    var
     n:integer; 
    function kol(n:integer):integer;
    var k:integer;
    begin
    k:=0;
    while n>0 do
     begin
     k:=k+1;
     n:=n div 10;
     end;
    kol:=k;
    end;
    begin
    write('n = '); readln(n);
    writeln('k = ',kol(n));
    end.

    Пример:
    n = 123456
    k = 6
Самые новые вопросы