Вопрос по информатике:
Здравствуйте , задача 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.
- 08.03.2018 22:54
- Информатика
- remove_red_eye 6824
- thumb_up 47
Ответы и объяснения 1
Что сделала я, чтобы у меня запустилось:
1) поменяла тип переменной l на integer (вы же ей присваиваете s, который может быть большим)
2) поменяла цикл в функции на repeat-until (оно запустится и так, но len(0), на мой взгляд, должно равняться 1, а не 0 :) )
- 09.03.2018 10:34
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.