Использована формула
var
f, i: longint;
begin
f := 1;
i := 2;
while f < 3669972 do
begin
f := 2 * (f + i);
i := i + 1
end;
Writeln('m=',i)
end.
Результат выполнения программы:
m=21
По второй задаче 8+6=14
<span>Есть на свете такая страна под названием Информатия. Жила-была в ней семья. Папу звали Процессор, маму Клава, сына Монитор, дочку Мышка. И был в Информатии один важный житель, его звали Интернет. Важный, потому что всё знал. Интернет охотно делился знаниями со своими друзьями. Но однажды случилась беда. Интернет, путешествуя по свету, познакомился с Вирусом. Вирус сказал: «Дорогой Интернет, я такой добрый и хороший, возьми меня с собой». Интернет согласился. Так злой Вирус проник в страну Информатию. Интернет познакомил Процессор со свом новым другом, и папа заболел. А злой Вирус веселился и продолжал приносить несчастья жителям страны Информатии. Интернет решил помочь своему другу и всем жителям этой страны. Он позвал доброго волшебника Программиста, который вылечил всех жителей и прогнал злого Вируса. Добрый волшебник дал жителям всей страны Информатии волшебный амулет, который защищает Процессор от злого Вируса.</span>
Uses Crt;
Label
BbIXOD, BBODN;
Var
A:array[1..19,1..19] of shortint;
i,j,N,t:integer;
Begin
Randomize;
BBODN:
Write('N = ');ReadLn(N);
ClrScr;
if (N <= 0)or(N > 19) then GOTO BBODN;
t:= 700 div N;
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
Delay(300);
For i:= N downto 1 do
Begin
For j:= N downto 1 do
Begin
if (j < N) then
Begin
GotoXY(j*4+1,i);
TextBackground(0);
Write(A[i,j+1]:3,' ');
GotoXY(1,N+1);
End;
TextBackground(2);
GotoXY(j*4-3,i);
Write(A[i,j]:3,' ');
Delay(t);
if A[i,j] mod 2 = 0 then
Begin
Delay(700);
if i <> j then
Begin
TextBackground(12);
GotoXY(j*4-3,i);
Write(A[i,j]:3,' ');
Delay(700);
TextBackground(14);
GotoXY(i*4-3,i);
Write(A[i,i]:3,' ');
Delay(700);
t:=A[i,j];
A[i,j]:=A[i,i];
A[i,i]:=t;
TextBackground(14);
GotoXY(j*4-3,i);
Write(A[i,j]:3,' ');
TextBackground(12);
GotoXY(i*4-3,i);
Write(A[i,i]:3,' ');
Delay(700);
TextBackground(0);
GotoXY(j*4-3,i);
Write(A[i,j]:3,' ');
TextBackground(2);
GotoXY(i*4-3,i);
Write(A[i,i]:3,' ');
End;
t:=-1;
GOTO BbIXOD;
End
End;
GotoXY(1,i);
TextBackground(0);
Write(A[i,j]:3,' ')
End;
BbIXOD:
TextBackground(0);
GotoXY(1,N+1);
if t >= 0 then WriteLn('Чётных элементов не обнаружено');
WriteLn('Для повторного ввода N нажмите 0');
WriteLn('Для выхода - любую другую клавишу');
if ReadKey = '0' then
Begin
ClrScr;
GOTO BBODN;
End
End.
