@keffirpubgm
8 классник

Как исправить ошибки в коде Pascal цикл-до?

Program Zadcha1;
Var i:integer;
Var n, i:real;
begin
readln (n) ;
I:=0;
repeat
           begin
n:=n/2;
I:=i+1;
end
until (n<1) 
write on ('Можем поделить ', i-1, ' раз') ;
end.


Само задание
1. Ввести с клавиатуры число. Вычислить, сколько раз его можно разделить на 2, пока оно не стало < 1.
  • Вопрос задан
  • 96 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы