Mayday,mayday!
дробная часть числа! на pascal
вывести дробную часть заданного положительного вещественного числа а.
дробная часть числа — определена на вещественных числах x и равная разности между x и целой частью (антье) [x] числа x. дробная часть числа х обычно обозначается знаком {x}.
например: {1.23} = 0.23; {-1.23} = 0.77
входные данные: выходные данные:
во входном потоке заданно единственное вещественное число а (a < = 3). в выходной поток вывести единственное вещественное число с точностью три знака после запятой.
пример входного файла (input.txt):
123.123
пример выходного файла (output.txt):
0.123
Для определения информационного объема сообщения воспользуемся формулой: I = K * i, где K - количество символов, i - вес одного символа.
1) 1024 страницы, на одной странице помещается 64 строки, а в строке помещается 64 символа. Каждый символ в кодировке КОИ-8 занимает 8 бит памяти.
i = 8 бит
K = 1024 * 64 * 64 = 4194304 символов,
I = 4194304 * 8 = 33554432 бит = 4194304 байт = 4096 Кбайт = 4 Мбайт
2) 512 страниц, на одной странице в среднем помещается 64 строки, а в строке 64 символа. (Каждый символ в кодировке Unicode занимает 16 бит памяти.)
i = 16 бит
K = 512 * 64 * 64 = 2097152 символов,
I = 2097152 * 16 = 33554432 бит = 4194304 байт = 4096 Кбайт = 4 Мбайт
*8 бит = 1 байт
1024 байт = 1 Кбайт
1024 Кбайт = 1 Мбайт
//PascalABC.Net 3.0, сборка 1052
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
f: Text;
tNOD: longint;
begin
Assign(f, 'input.txt'); Reset(f);
if not Eof(f) then Readln(f, tNOD);
var n: longint := 1;
while (not Eof(f)) and (n > 0) and (tNOD > 1) do
begin
Readln(f, n);
if n <> 0 then tNOD := NOD(tNOD, n)
end;
Close(f);
Assign(f, 'output.txt'); Rewrite(f);
Writeln(f,tNOD);
Close(f)
end.
2. "Современный" вариант
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: integer): integer;
begin
while a <> b do if a > b then a -= b else b -= a;
Result := a
end;
var
tNOD: integer := 0;
n: integer;
begin
foreach var sn in Readlines('input.txt') do
begin
n := StrToInt(sn);
if tNOD = 0 then tNOD := n
else
if n = 0 then break else tNOD := NOD(tNOD, n);
end;
WriteAllText('output.txt', IntToSTR(tNOD));
end.
Пример файла input.txt находится во вложении, контрольный результат 4096