Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var x,y,nod,nok: longint;
begin
read(x,y);
a: =x; b: =y;
while (a> 0) and (b> 0) do
if a> b then a: =a mod b
else b: =b mod a;
nod: =a+b;
nok: =(x div nod)*y;
write(nok);
end;
карандаш — инструмент в виде стержня, изготавливаемого из пишущего материала (угля, графита, сухих красок и т. п.) применяемый для письма, рисования, черчения.
1.
program xxx;
var i, n : integer
writeln ('введите число n=');
readln (n);
writeln ('делители числа: ');
for i: = 1 to n do
if n mod i = 0 then writeln (i);
readln
end.
64000*16=1024000 б=128000 б=125 кб
Популярные вопросы