Предмет: Информатика,
автор: 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.
Приложения:
![](https://files.topotvet.com/i/32d/32ddbba6152c0fb4180ae252ac6e86c0.jpg)
Ответы
Автор ответа:
0
Что сделала я, чтобы у меня запустилось:
1) поменяла тип переменной l на integer (вы же ей присваиваете s, который может быть большим)
2) поменяла цикл в функции на repeat-until (оно запустится и так, но len(0), на мой взгляд, должно равняться 1, а не 0 :) )
1) поменяла тип переменной l на integer (вы же ей присваиваете s, который может быть большим)
2) поменяла цикл в функции на repeat-until (оно запустится и так, но len(0), на мой взгляд, должно равняться 1, а не 0 :) )
Похожие вопросы
Предмет: Қазақ тiлi,
автор: saizere11
Предмет: Русский язык,
автор: shirimukhpulova34
Предмет: Математика,
автор: emilbekovaeldana
Предмет: Математика,
автор: help112
Предмет: Геометрия,
автор: anton1998ff