Ответ:653= 1010001101
Объяснение: нужно делить на 2 пока не будет 0 или 1 и потом посмотреть на оборот
program tof;
var x,c: integer;
begin
writeln('Enter your number');
readln(x);
if((x>999) and (x<10000)) then
writeln('true')
else
writeln('false');
end.
Только один вариант дает положительный результат. Когда первая цифра числа и третья равны 1
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a:integer;
begin
write('Введите число ');readln(a);
if ((a div 1000)=1)and ((a div 10 mod 10)*(a div 10 mod 10)= 1)then
writeln('квадрат первой цифры равен кубу третьей цифры этого числа')
else
writeln('квадрат первой цифры не равен кубу третьей цифры этого числа')
end.
Тест №1
Введите число 1214
квадрат первой цифры равен кубу третьей цифры этого числа
Тест №2
Введите число 2237
квадрат первой цифры не равен кубу третьей цифры этого числа
"komp"
"komp"
"komp"
"komp"
"komp"
"komp"
"komp"
"komp"
"komp"
"komp"
Excel может вычислить коэффициент корреляции с помощью функции КОРРЕЛ со следующими характеристиками:
КОРРЕЛ (массив 1; массив 2), где:
массив 1 = диапазон данных для первой переменной,
массив 2 = диапазон данных для второй переменной.