1)N=?
N=2 в 4 степени
N=16
ответ:16 этажей в доме
2)24576
Var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while s<q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страница = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
<span>Страница = 6</span>
12 способами можно составить 2 танцевальные пары
Вот, например программа поиска корня уравнения методом ДИХОТОМИИ:
program dichotom;
uses Crt;
var a, b, eps, xn, y, psy: real;
n: integer;
function f(x:real):real;
begin
f:=sin(x)-1/x;
end;
begin
ClrScr;
a:=2;
b:=3;
eps:=0.01;
n:=0;
y:=f(a);
while y>=eps do
begin
n:=n+1;
xn:=(a+b)/2;
y:=f(xn);
if y>=eps then
if f(a)*y<0 then b:=xn else a:=xn;
end;
psy:=xn;
WriteLn(' X = ',psy:5:2);
ReadLn;
end.
Const
MAX = 100;
var
A: array [1 .. MAX, 1 .. MAX] of integer;
i, j, N, M: byte;
min: integer;
begin
randomize;
write(' Введите N(макс. ', MAX, ') = ');
readln(N);
write(' Введите M(макс. ', MAX, ') = ');
readln(M);
writeln(' Исходная матрица: ');
for i := 1 to N do
begin
for j := 1 to M do
begin
A[i, j] := random(100) - 50;
write(A[i, j]:6);
end;
writeln;
end;
for i := 1 to N do
begin
min := A[i, 1];
if i mod 2 = 0 then
begin
for j := 1 to M do
if A[i, j] < min then
min := A[i, j];
writeln(' Минимальный элемент ', i, ' строки = ', min);
end;
end;
end.