Var N, a, b: integer;
begin
readln(N);
a := N div 5;
N := N mod 5;
b := N div 2;
WriteLn(a, 'x5, ', b, 'x2, ', N mod 2, 'x1');
<span>end.
Вот так, делением можно)</span>
Данные с твоим именем, пароль не должен никаким образом совпадать с логином.
Просмотр и изменение файла внутри ,внешние изменения недоступны
Винчествер!!!!!!!!!!!!!!!!!!!!!
Ввод: x ^ y С/П.
<-> П0 1 + + П1 ИП0 / 1/x П2
ИП1 С/П ИП2 С/П ИП0 С/П