Ну это уже смешно) var a,b : integer; begin readln(a); readln(b); if a > b then writeln(a) else writeln(b); end.
Спасибо
Ответ дал: Гость
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;
Ответ дал: Гость
обозначи кол-во цветков, распустившихся позавчера за x, вчера - за (x - 11) (по условию). вчера распустилось на 11 цветков меньше, чем позавчера и на 32 меньше, чем сегодня и позавчера вместе.подставим x=12 (> 11) - цветков вчера, значит 12-11=1 - цветков завтра. цветков сегодня находим так: 32 (дано) - 11 (дано) = 21.
Популярные вопросы