Перевести на язык Паскаля

Перевести на язык Паскаля
Гость
Ответ(ы) на вопрос:
Гость
var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы