Показать, что любую сумму, большую 7 копеек, можно выплатить, используя только 3-х и 5-ти копеечные монеты. (то есть, для любого целого n> 7 найти такие целые числа x и y, что 3x+5y=n написать программу в pascal

program Diofant;

var

 n, x, y: integer;

begin

 n := 125;

 {3x + 5y = n, n >= 0, x >= 0, y >= 0;

 n - 5y >= 0, y <= n / 5}

 for y := 0 to n div 5 do

 begin

   if (n - 5 * y) mod 3 = 0 then

   begin

     x := (n - 5 * y) div 3;

     Writeln('3 * ', x, ' + 5 * ', y, ' = ', n)

   end;

 end;

 Readln;

end.

начну с того, что это логический код

дословный перевод

var n, i, m: целое число;

флаг: логический;

начать

readln(n); прочитать переменную

флаг: = false; флагу присвоить значение лжи

если (n mod 2< > 0), то i: =n-1 иначе i: =n;

в то время как i> 0 действительно начинаются

если мощность(2, i)< =n, то начинайте

write (power(2, i),' '); flag: = true; в этом случае флагу присвоить правдивое значание

конец;

i: =i-2;

конец;

если не флаг, то writeln(0);

конец

я особо в логических не шарю, но тут идёт по типу если это трава то это наркота

а если это дурь то это тоже наркота

схема и объяснение снизу

program ufhcn;

var x, y, a, i, b: real;

uses crt;

begin

clrscr;

writeln('вводи число 1');

readln(i);

writeln('вводи число 2');

readln(x);

if (x> =0) then writeln('все в порядке')

else writeln('не правильная цифра');

if (i> =1) and (i< =13)

then writeln('число входит в ряд', x*i> =a)

else writeln('не входит ряд');

writeln('води число 3');

readln(a);

if (a> =0) then writeln('вводи число 4');

readln(b);

if (b> =0) then writeln('находим первый y= ', a*x*(i*i*i)+b*sqrt(x*i));

if (b< 0) then writeln('находим второй y= ', (sin(x)/cos(x))*(a-(x*

end.

начало

вводим переменную i

вводим переменную x

если x> =0 то

если нет если да

то нет. то далее

ввели интервал в переменную i

если (i> =1) и (i< =12) то

если нет. если да

то нет решения. то есть решение

вводим число 3

если (а> =0) то

вводим число 4

если (b> =0) то

y1= a*x*(i*i*i)+b*sqrt(x*i))

если (b< 0) то

y2= ', (sin(x)/cos(x))*(a-(x*

конец

короче объясняю.

ввёл 4 переменных

сделал так чтобы все вводимые были больше нули или равны ему чтобы легче было.

ввёл интервал i от 1 до 12

остальное решает уравнение поле ввода 4 переменных, если что-то не устроило пиши разберусь