Program asd;
Var a,b,n:integer;
Begin
readln (n); {стоимость}
for a:=0 to 9 do
for b:=0 to 9 do
if (3*a)+(5*b)=n
then writeln (3*a,+,5*b,=,n);
end.
Проверь тк.писал схода
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.