Информатика, опубликовано 12.04.2019 22:40
Записи в тетради; решить : объем сообщения, набранного на компьютере - 1,5 мб. найти количество символов в сообщении.
Ответ оставил: Гость
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