Для трехзначногозакономерность будет такая
x = a*100 +b*10+c
x*x = (a+b+c)^3
видимо нужно в цикле перебрать от 100 до 999 и посмотреть что попадет под условие
Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('----------------------');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('----------------------');
Writeln('Максимальное число: ', max);
Writeln();
end.
// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.
Program<span> cyberforum707298;</span>
var
<span>N :integer; </span><span>// Данное число </span>
<span>otvet :integer; </span><span>// ответ </span>
<span>i:integer; </span><span>// счетчик в цикле </span>
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While<span> i*i <= N </span>do<span> inc(i);//</span>
otvet:=i*i;
<span>// вывод ответа </span>
Writeln('Ответ = ',otvet)
<span>end.</span>
1.Имя поля<span> должно быть уникальным, максимальная длина имени 64 символа, в имени можно использовать любые символы кроме «'», «.», «,», «!», « [», «]». Имя не должно начинаться с пробела.
2.</span>Основные свойства полей MS Access зависят от выбранного типа данных. Если открыть таблицу в режиме конструктора, то весь набор свойств выбранного поля будет представлен в нижней части окна на двух вкладках: Общие<span> (General) и </span>Подстановка<span> (Lookup). Приведем свойства полей, наиболее важные на первом этапе изучения баз данных.</span>
64 цвета => объём, который занимает 1 точка изображения в памяти, равен 6 бит (2^6 = 64)
512*64*6 = 2^7*2^6*2*3 = 2^14*3 (объём в битах)
1 Кбайт = 2^13 бит
2^14*3 / 2^13 = 2*3 = 6 Кбайт