<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<body>
<title>Практическая работа 2. Фамилия Имя Отчество</title>
<h1>Домашние животные</h1>
<h2><center>Собаки</center></h2>
<p>Сторожевые</p>
<p align="right">Охотничьи</p>
<p align="center">Дрессировка</p>
<center>
<p><font size=14 color="red">Клубы Выставки Площадки</font></p>
<p><font color="blue">Стихотворение</font></p>
</center>
<font size=10>
<p>По жизни я скромен</p>
<p>Оваций не надо!</p>
<p>Но как же я классно</p>
<p>Смотрюсь у снаряда</p>
</font>
</body>
</html>
PascalABC.NET
begin
var (s, n) := ReadInteger2('Введите S и N:');
var r := 0;
for var m10 := 0 to S div 10 do
begin
for var m5 := 0 to (S - 10 * m10) div 5 do
begin
if m10 + m5 > N then
break;
for var m2 := 0 to (S - 10 * m10 - 5 * m5) div 2 do
begin
if m10 + m5 + m2 > N then
break;
for var m1 := 0 to S - 10 * m10 - 5 * m5 - 2 * m2 do
begin
if m10 + m5 + m2 + m1 > N then
break;
if (m10 * 10 + m5 * 5 + m2 *2 + m1 = s) and
(m10 + m5 + m2+ m1 = N) then
begin
$'{m10} x 10 + {m5} x 5 + {m2} x 2 + {m1} x 1'.Println;
Inc(r)
end
end
end
end
end;
if r > 0 then
Println('Найдено вариантов размена:', r)
else
Println('Вариантов такого размена нет')
end.
