Var m,mk,k:integer;
begin
readln(m);
k:=0;
mk:=1;
while mk<m do
begin
mk:=mk*4;
k:=k+1;
end;
k:=k-1;
writeln(k);
end.
Пример:
500
4
Ответ:
Чтобы сложить дроби с одинаковыми знаменателями, надо сложить их числители, а знаменатель оставить без изменений.Чтобы вычесть дроби с одинаковыми знаменателями, надо из числителя первой дроби вычесть числитель второй, а знаменатель опять же оставить без изменений.
Объяснение:
Преобразуем выражение с помощью законов де Моргана и запишем его в виде
(Третья буква гласная) ИЛИ (Последняя буква согласная)
и проверим все варианты ответа.
1) Ложно, поскольку ложны оба высказывания: н — согласная и а — гласная.
2) Истинно, поскольку истинно первое высказывание: е — гласная.
3) Истинно, поскольку истинно второе высказывание: л — согласная.
4) Истинно, поскольку истинны оба высказывания: о — гласная и р — согласная.
Правильный ответ указан под номером 1.
var a:integer; k:integer;
begin
k:=0;
while k<=5 do
begin
write('a='); read (a);
if (a mod 2=0) then
writeln(sqr(a));
k:=k+1;
end;
end.