Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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) цирк (2) пирк (3) пирзприз (1) волк (2) солк(3) солн слон (1) стук (2) (м) мтук(3) (ь) мтуьмуть (1) крот (2) (м) мрот(3) (г) мрогморг
напиши само ,я
2гбайта=2000000байт
2000000байт/400байт=5000текстовых файлов
Популярные вопросы