Var
r:real;
function preob(n:integer):real;
begin;
preob:=sqrt(n)+n;
end;
begin
r:=preob(5)/2+preob(3)/2+preob(7)/2;
writeln(r);
<span>end.</span>
Значит эта ОС лучше чем другие(удобный интерфейс нормальный девайс ее очень легко установить стоит она немного продается диск в каждом магазине и типо того)
===== PascalABC.NET =====
begin
var x := ReadInteger('x=');
var y := ReadInteger('y=');
var a := x;
var b := y;
while b <>0 do
begin
a := a mod b;
Swap(a,b)
end;
var NOD := a;
var NOK := x * y div NOD;
Print('НОД =', NOD, ' НОК =', NOK)
end.
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.
25Кб=25 600байт=204 800бит
9Мб=9 216Кб=9 437 184байт=75 497 472бит
20Гб=20 480Мб=20 971 520Кб
