Здравствуйте , задача 6.2 не работает , можете помочь , и желательно с объяснением . =) Я попробовал в Pascal ABC запустить , и она выдаёт пустое окно .
function len(s: integer): byte;
var i, l: byte;
begin l := s;
while (l > 0) do
begin
l := l div 10;
inc(i);
end;
len := i;
end;
var i: integer;
begin i := 3;
repeat
i := i * 3;
until (len(i) = 6);
writeln(i);
end.
function len(s: integer): byte;
var i, l: byte;
begin l := s;
while (l > 0) do
begin
l := l div 10;
inc(i);
end;
len := i;
end;
var i: integer;
begin i := 3;
repeat
i := i * 3;
until (len(i) = 6);
writeln(i);
end.
More Questions From This User See All
Answers & Comments
Verified answer
Что сделала я, чтобы у меня запустилось:1) поменяла тип переменной l на integer (вы же ей присваиваете s, который может быть большим)
2) поменяла цикл в функции на repeat-until (оно запустится и так, но len(0), на мой взгляд, должно равняться 1, а не 0 :) )