Предмет: Информатика,
автор: fooood50
Настя выбрала в магазине открытки двух типов: по цене M и по цене D. Всего у Насти R рублей. Составить программу, которая позволит получить всевозможные варианты покупок, где будут истрачены все имеющиеся у Насти деньги.
Пример. M=2000 D=3000 R=20000 Вывод: 1 6 4 4 7 2 10 0
Паскаль
Аноним:
Оу....Диофантово уравнение!
Ответы
Автор ответа:
0
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var (m, d, r) := ReadInteger3;
var (km, kd) := (r div m, r div d);
for var i := 0 to km do
for var j := 0 to kd do
if i * m + j * d = r then Println(i, j)
end.
Пример
2000 3000 20000
1 6
4 4
7 2
10 0
program hfbvcjk;
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,p,s:integer;
begin
writeln('Исходная матрица');
p:=1;
s:=0;
for i:=1 to n do
begin
for j:=1 to n do
writeln
end;
write('Сумма элементов матрицы=',s)
end.
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,p,s:integer;
begin
writeln('Исходная матрица');
p:=1;
s:=0;
for i:=1 to n do
begin
for j:=1 to n do
writeln
end;
write('Сумма элементов матрицы=',s)
end.
задача должна быть в этом формате, я не знаю сборку
А это надо было писать в вопросе, а не "махать после драки кулаками".
Похожие вопросы
Предмет: Геометрия,
автор: alonecursed
Предмет: Математика,
автор: vikapopravkotiktok
Предмет: Алгебра,
автор: bejbkata38
Предмет: Математика,
автор: аку2
Предмет: Математика,
автор: диана15113