Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int a,k(0);
cout << "a="; cin >> a;
while (a > 0)
{
a /= 10;
k++;
}
cout << "Otvet: " << k << endl;
return 0;
}
Program p1;
var a,b:integer;
begin writeln('Введите два числа');
readln(a,b);
if a=b
then writeln('Числа равны')
else if a<b
then writeln(1)
else writeln(2);<span>end.</span>
Напиши msconfig и нажми ок. Далее вкладка автозагрузка
1 шаг по 4 монеты в каждой чаше - узнаем в какой стороне фальшивая
2 шаг по 2 монеты в каждой чаше из той где фальшивая
3 шаг по 1 монете в каждой чаше и узнаем какая фальшивка
Ответ 3
Можно еще было узнать как 2 в степени Х = 8
Х = 3