<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
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.
<h2>Пример</h2><h3>2000 3000 20000</h3><h3>1 6 </h3><h3>4 4 </h3><h3>7 2 </h3><h3>10 0 </h3>
Wrap enabled
uses Graph;
const
delta: array[1 .. 4] of record
X, Y: integer;
end =
((X:-1; Y: 0), (X: 0; Y:-1),
(X: 1; Y: 0), (X: 0; Y: 1));
var
grDriver, grMode, ErrCode: Integer;
len, i, j: integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode <> grOk then begin
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
readln; halt
end;
len := 10;
moveto(getmaxx div 2, getmaxy div 2);
for i := 1 to 10 do begin
for j := 1 to 2 do linerel(delta[j].X*len, delta[j].Y*len);
inc(len, 10);
for j := 3 to 4 do linerel(delta[j].X*len, delta[j].Y*len);
inc(len, 10)
end;
readln;
closegraph;
end.
Примерно
int a[30];
float S=0;
int k=0;
ввести массив
for (int i=0; i<30; i++) { //открываем цикл с 0-го элемента массива и до 29
if (a[i]%2==1) { // если остаток от деления на 2 элемента массива равен 1
S=S+a[i]; // находим сумму этих элементов
k++; } // находим кол-во таких элементов
}
S=S/(float)k; // находим среднее арифметическое
printf("Среднее арифметическое <span>всех элементов массива,имеющих нечетное значение = %f</span> ", S);
}