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

@Оксанааа · Регистрация: 12.04.2012

Author24 — интернет-сервис помощи студентам

составить программу,которая для любого натурального числа печатает количество цифр в записи этого числа. предполагается,Что исходное число имеет не больше восьми цифр в записи.
решите плиз в паскале через case of....

@Puporev · 24.04.2012, 08:29

Сообщение от Оксанааа

через case of...

Это не решается так.
Правильно

Pascal

uses crt;
var n,k: integer;
begin
write ('n=');
readln (n);
k:=0;
while n>0 do
 begin
  k:=k+1;
  n:=n div 10;
 end;
write('Количество цифр=',k)
end.

@klast · 24.04.2012, 10:44

Сообщение от Puporev

Это не решается так.

решается

Pascal

var
  s: string;
 
begin
  readln(s);
  case length(s) of
    1: writeln('1')
  else writeln( length(s));
  end;
end.

@Puporev · 24.04.2012, 10:51

Тогда уж так..

Pascal

case length(s) of
    1: writeln('1');
    2: writeln('2');
    .........
    8: writeln('8');
  else writeln('А нефиг вводить больше 8 цифр');

@Оксанааа 0 / 0 / 0 Регистрация: 12.04.2012 Сообщений: 26
		1
	Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа 24.04.2012, 08:16. Показов 13511. Ответов 3 Метки нет (Все метки) составить программу,которая для любого натурального числа печатает количество цифр в записи этого числа. предполагается,Что исходное число имеет не больше восьми цифр в записи. решите плиз в паскале через case of.... 0

	24.04.2012, 10:51

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

Решение