Четыре стакана поставлены кверху дном в четырёх углах вращающегося квадратного стола. Вы хотите пеpевеpнуть их в одну сторону: или все вверх или все вниз. Вы можете взять любые два стакана, и должны перевернуть один или два из них. Есть два условия: у вас завязаны глаза, и стол поворачивается на произвольное число оборотов каждый pаз, когда вы дотрагиваетесь до стаканов. Так что вы будете делать?
Ответы
1)var n,k: integer; begin write('число: '); readln(n); k: =0; repeat k: =k*10+n mod 10; n: =n div 10; until n=0; writeln('новое число: ',k); end. 2) var n,k,m: integer; begin write('двоичное число: '); readln(n); k: =1; m: =0; repeat m: =m+k*(n mod 10); n: =n div 10; k: =k*2; until n=0; writeln('десятичное число: ',m); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Перечислите основные устройства входящие в состав эвм
Автор: RozaAsadullina