Program A;
var x,a,p:real;
k:integer;
begin
read(x,a);
k:=0; p:=1;
repeat
k:=k+1;
p:=x*p;
until p/k>a;
write('k=',k);
end.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть