Pascal/Для любого целого числа N > 9 найти все такие пары целых положительных чисел x и y, что 3x+7y=N.
Ответы
Ответ дал:
0
program main;
var n, x, y: Integer;
begin
Write('Введите N: '); ReadLn(n);
for y:=0 to n div 9 do begin
x:=n-y*7;
if x mod 3=0 then WriteLn('3 * ',x div 3,' + 7 * ',y,' = ',n);
end;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
8 лет назад
8 лет назад