Предмет: Информатика, автор: MrBoog1e

Здравствуйте , задача 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.

Приложения:

Ответы

Автор ответа: nelle987
0
Что сделала я, чтобы у меня запустилось:
1) поменяла тип переменной l на integer (вы же ей присваиваете s, который может быть большим)
2) поменяла цикл в функции на repeat-until (оно запустится и так, но len(0), на мой взгляд, должно равняться 1, а не 0 :) )
Похожие вопросы
Предмет: Математика, автор: emilbekovaeldana