Первая
Program n1;
Uses CRT;
Var a,b,c,k: integer;
begin
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a=b)and(b=c) then begin k:=1; writeln('Ravnostoronnij') end else
If (a=b)or(b=c)or(a=c) then begin k:=1; writeln('Ravnobedrennij'); end;
If (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a))
then begin k:=1; writeln('Pryamoygolnij'); end;
If (a>b+c)or(b>a+c)or(c>a+b) then begin k:=1; writeln('treygolnik nelza sostavit'); end;
If k=0 then writeln('Treygolnik Raznostoronnij');
readln
end.
Вторая
Program n1;
Uses CRT;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a>0)and(b>0)and(c>0) then writeln('Summa kvadratov=',sqr(a)+sqr(b)+sqr(b));
If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('Summa =',a+b+c,', Proizvedenie =',a*b*c);
readln
end.
Program Olimp4(input);
Uses CRT;
Var x,y:array [1..100] of integer;
a,n,m,i,j,k,max,sum,msum:integer;
Begin
ClrScr;
Assign(input,'input.txt');Reset(input);
randomize;
{Вввод данных из файла}
readln(n);
for i:=1 to n do read(x[i]);
readln;
readln(m);
for j:=1 to m do read(y[j]);
for k:=1 to 10000 do begin
sum:=0; i:=1; j:=1;
{Пока сумма не отрицательна и кучки не закончились}
while (sum>=0) and (i<=n) and (j<=m) do
begin
{Случайное число 0,1}
a:=random(2);
{Если 0, то выбор из первой кучки, если 1, - то из второй}
if (a=0) then begin
{Подсчет суммы}
sum:=sum+x[i];
i:=i+1;
end
else begin
{Подсчет суммы}
sum:=sum+y[j];
j:=j+1;
end;
{Максимальная сумма}
if sum>msum then msum:=sum;
end;
{Закончилась вторая кучка, продолжаем брать из первой}
if i<=n then begin
while i<=n do begin
{Подсчет суммы}
sum:=sum+x[i];
{Если сумма отрицательна, то выход из цикла}
if sum<0 then i:=n+2;
{Максимальная сумма}
if sum>msum then msum:=sum;
inc(i);
end;
Задача: перевести число 49 из десятичной системы счисления в двоичную
Для того, чтобы перевести число 49 из десятичной системы счисления в двоичную, необходимо осуществить последовательное деление на 2, то тех пор пока остаток не будет меньше чем 2.
— 49 2
48 — 24 2
1 24 — 12 2
0 12 — 6 2
0 6 — 3 2
0 2 1
1
Полученные остатки записываем в обратном порядке, таким образом:
ответ: 4910=1100012
Обратите внимание, что алфавит в 2-ой системе счисления содержит следующие значения:
0, 1
Число 49 не может иметь основание 2.
Задача: перевести число 132 из десятичной системы счисления в двоичную
Для того, чтобы перевести число 132 из десятичной системы счисления в двоичную, необходимо осуществить последовательное деление на 2, то тех пор пока остаток не будет меньше чем 2.
— 132 2
132 — 66 2
0 66 — 33 2
0 32 — 16 2
1 16 — 8 2
0 8 — 4 2
0 4 — 2 2
0 2 1
0
Полученные остатки записываем в обратном порядке, таким образом:
ответ: 13210=100001002
Обратите внимание, что алфавит в 2-ой системе счисления содержит следующие значения:
0, 1
Число 132 не может иметь основание 2.
Задача: перевести число 2051 из десятичной системы счисления в двоичную.
Для того, чтобы перевести число 2051 из десятичной системы счисления в двоичную, необходимо осуществить последовательное деление на 2, до тех пор пока остаток не будет меньше чем 2.
— 2051 2
2050 — 1025 2
1 1024 — 512 2
1 512 — 256 2
0 256 — 128 2
0 128 — 64 2
0 64 — 32 2
0 32 — 16 2
0 16 — 8 2
0 8 — 4 2
0 4 — 2 2
0 2 1
0
Полученные остатки записываем в обратном порядке, таким образом:
ответ: 205110=1000000000112.
Обратите внимание, что алфавит в 2-ой системе счисления содержит следующие значения:
0, 1
Число 2051 не может иметь основание 2.