Задать вопрос
16 декабря, 12:31

Запишите на языке Паскаль программы решения задач, используйте оператор while:

1) Составьте алгоритм для определения количества цифр в записи произвольного натурального числа

+2
Ответы (1)
  1. 16 декабря, 14:20
    0
    Var a, n: integer;

    begin

    Writeln ('Введиье число') ;

    Readln (a) ;

    while a div 10 0 do

    begin

    a:=a div 10;

    n:=n+1;

    end;

    Writeln ('В данном числе ', n+1, ' цифр (ы, а) ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Запишите на языке Паскаль программы решения задач, используйте оператор while: 1) Составьте алгоритм для определения количества цифр в ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике