16 бит - вес 1 знака
вес всего файла= скорость на время = 512000 бит
количество знаков = вес всего файла/вес одного знака = 512000/16=32000бит
Суть заключается в том, что мы изменяем внешний вид числа, не меняя самого значения
Function NOD(a, b: longint): longint;
begin
while a <> b do
if a > b then a := a - b
else b := b - a;
NOD := a
end;
var
A, B, C: longint;
begin
Write('Введите три натуральных числа: '); Readln(A, B, C);
Writeln('НОД=', NOD(NOD(A, B), C))
end.
<em><u>Тестовое решение:</u></em>
Введите три натуральных числа: 256 48 24
НОД=8
Const N = 10;
var im, i, ie: Integer;
A: array [0..N] of Integer;
begin for i := 0 to N do
A[i] := random(99);
im := A[0];
for i := 0 to N do
if (A[i] > im) then
begin
im := A[i];
ie := i;
end;
writeln(ie);
<span>end.
==========================================
const N = 10;
var im, i, ie, ib: Integer;
A: array [0..N] of Integer;
begin
readln(im);
for i := 0 to N do
A[i] := random(15);
for i := 0 to N do
if (im = A[i]) then ie := i;
writeln(ie);
<span>end.
================================
const N = 10;
var im, i, ie, ib: Integer;
A: array [0..N] of Integer;
begin
readln(im);
for i := 0 to N do
A[i] := random(15);
for i := 0 to N do
if (im = A[i]) then
begin
ie := i;
break;
end;
writeln(ie);
<span>end.
================================
Вот, прошу:) Тут полезно знать, что вначале массив заполняется случайными числами во всех примерах, вдруг спросят</span></span></span>
Свєта говорит правду
Аня неправду
Оля через раз но севодня не правду