Задача по информатике! Паскаль помогите!! ! срочно!!!
Пожалуйста напишите решение!!!
Спасибо огромное!!!
ошиблась не dir а div
Тут так много вариантов, ученица 9 класса что мне выбрать из всех и сдать учителю?
А? не знаю какое писать! "
program q171645269;
var
x, k: integer;
begin
Write('Число: ');
ReadLn(x);
k := 0;
while x > 0 do
begin
x := x div 10;
Inc(k);
end;
WriteLn('Кол-во цифр: ', k);
ReadLn;
end.
UPD Опоздал xD
dir не поможет, потому что такого оператора не существует.
Вариант с Ифами:
readln(n);
k := 0;
if (n <> 0) then
begin
inc(k);
n := n div 10;
end;
if (n <> 0) then
begin
inc(k);
n := n div 10;
end;
if (n <> 0) then
begin
inc(k);
n := n div 10;
end;
if (n <> 0) then
begin
inc(k);
n := n div 10;
end;
if (n <> 0) then
begin
inc(k);
n := n div 10;
end;
if (n <> 0) then
begin
inc(k);
n := n div 10;
end;
цикл:
readln(n);
k := 0;
while (n <> 0) do
begin
n := n div 10;
inc(k);
end;
var n,k:integer;
begin
write('N: '); readln(n); k:=0;
while n>0 do begin n:=n div 10; inc(k) end;
writeln(k); readln
end.
⇢