Question

Составить программу, которая для любого натурального числа печатает на естественном языке количество цифр в записи этого числа.Составить программу на Паскале.Срооооочно!!!

Answer 1

Var a:uint64;
k:Integer;
begin
write ('Введите число: ');
readln (a);
repeat
k:=k+1;
a:=a div 10
until a=0;
writeln('Количество цифр: ',k)
end.

var a:string;
begin
write ('Введите число: ');
readln (a);
writeln('Количество цифр: ',Length(a))
end.

Answer 2

Конечно, вот программа на языке Паскаль, которая выводит количество цифр в записи заданного натурального числа:

pascalCopy code
program CountDigits;
var
  number, count, digit: integer;
begin
  writeln('Введите натуральное число: ');
  readln(number);
  
  if number < 0 then
  begin
    writeln('Пожалуйста, введите натуральное число.');
  end
  else
  begin
    count := 0;
    
    if number = 0 then
      count := 1
    else
    begin
      while number > 0 do
      begin
        digit := number mod 10;
        number := number div 10;
        count := count + 1;
      end;
    end;
    
    writeln('Количество цифр в числе: ', count);
  end;
end.

Скопируйте этот код в среду разработки Pascal и выполните его. Программа попросит вас ввести натуральное число и затем выведет количество цифр в его записи.