Помогите пожалуйста! Нужно написать программы на паскале!

Question

Помогите пожалуйста! Нужно написать программы на паскале! 1) дано целое число m>1. Получить наибольшее целое k, при котором 4^k (четыре встепени k)

Answer 1

72

alexuss

05 марта 2023

program z1; vari,j,m,k,z,x,l: integer; beginreadln (m); for i: =0 to m do begin z: =1; if i=0 then z: =1 else beginx: =i; while x<>0 do beginz: =z*4; x: =x-1; end; end; if (zm) then writeln (i); if z=m then writeln (i-1); end; end. program z2; vari,j,n,k,z,x,l: integer; beginreadln (n); for i: =0 to n do begin z: =1; if i=0 then z: =1 else beginx: =i; while x<>0 do beginz: =z*2; x: =x-1; end; end; if (z>n) and (z/2

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: