может быть, я тебя не так понял. значит max(y,x) означет что надо вычислить что больше 'x' или 'y'? соответственно и min.
var x,y,max,min: integer;
begin
writeln('введите x,y через пробел');
read(x,y);
if x-y> y then min: =y else min: =x-y;
{если х-у> y тогда переменной min присваеваем значение y, в другом случае min присваеваем значение x-y(если "=" тоже, потому что значения будут одинаковы)}
if min> x then max: =min else max: =x; {примерно также}
writeln(max);
end.
если что - пиши в личку.
удачи!
Спасибо
Ответ дал: Гость
program aaa; var d, n : integer; begin write ('введите число n-'); readln (n); writeln('делители числа: '); for d : =1 to n do if n mod d = 0 then writeln (d)end.
Ответ дал: Гость
5.5 8.8 9.8 11.6 12.7 11.7 11.2 9.3 10.3 10.4 7.4 7.2 5.2 5.3 6.3 6.9 7.8 2.8 2.9 3.9 3.6 4.5 а вот как переводить: с конца над числом в двоичной системе пишешь: 1,2,4, и.т.д если единичка есть-прибавляешь это число. если единички нет-ничего не прибавляешь.
например- 1011 8+0+2+1=11 1000 8+0+0+0=8 111 4+2+1=7 11 2+1=3 10 2+0=2 10011101 128+0+0+16+8+4+0+1=157 а твои числа все в уме считаются.проверь может я ошиблась где нибудь)
Популярные вопросы