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.
Ответ:
1
Объяснение:
Высказывание А истинно, поэтому его значение - истина. Которую, в частности, обозначают константой 1.
Var
A,B,i:integer;
k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
Begin
B:=Abs(A);
if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
End;
Until (A = 0)or(i>=5);
if A<>0 then
Repeat
Read(A);
Until A = 0;
WriteLn(k)
End.
Билл из Гравити Фолз пожирает оленя
Жили были клавиатура,мышь,и компьютер.Жили они хорошо, пока не возник у них спор: кто из них самый главный! Каждый начал доказывать, что именно он главный! Первой отозвалась Мышка: «Я сама маленькая, значит я главнее!»
Потом сказала Клавиатура: «Я самая главная, потому что я знаю множество языков!»
Тут возмутился компьютер : «Я среди вас самый главный! Все, кто работает с монитором , смотрит только на меня, я всем нужен!»
Они так спорили, пока не решили, что без них невозможно работать. На том и решили и после этого уже больше не ссорились, а жили долго и счастливо.