Информатика, опубликовано 05.06.2020 17:13
Книга содержит 133 страниц. На каждой странице 35 строк. В каждой строке 55 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется одним байтом.
Ответ оставил: Гость
Var n,m,a,b,c,d,k:longint;
function NOD(x,y:longint):longint;
var c:longint;
begin
while y>0 do
begin
c:=x mod y;
x:=y;
y:=c;
end;
NOD:=x;
end;
Function NoK(x,y:longint):longint;
begin
NOK:=(x*y) div NOD(x,y);
end;
begin
readln(a,b,c,d);
n:=NoK(b,d);
a:=a*(n div b);
c:=c*(n div d);
m:=a+c;
k:=nod(a,c);
write(m div k, ,n div k);
end
function NOD(x,y:longint):longint;
var c:longint;
begin
while y>0 do
begin
c:=x mod y;
x:=y;
y:=c;
end;
NOD:=x;
end;
Function NoK(x,y:longint):longint;
begin
NOK:=(x*y) div NOD(x,y);
end;
begin
readln(a,b,c,d);
n:=NoK(b,d);
a:=a*(n div b);
c:=c*(n div d);
m:=a+c;
k:=nod(a,c);
write(m div k, ,n div k);
end
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01