№7
1.44 Мбайт=1474,56 КБайт
1474,56 : 100 = 14 , Ответ : 14 файлов
Var i,j,k,n: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> i:=1; k:=0;
</span><span> repeat
</span><span> j:=i;
</span><span> repeat
</span><span> k:=k+1;
</span><span> writeln(i,' ',j,' ',n-i-j);
</span><span> j:=j+1;
</span><span> until j>(n-i) div 2;
</span><span> i:=i+1;
</span><span> until i>n div 3;
</span><span> writeln('всего вариантов: ',k);
</span><span>end.
</span>
n = 10
<span>1 1 8
</span><span>1 2 7
</span><span>1 3 6
</span><span>1 4 5
</span><span>2 2 6
</span><span>2 3 5
</span><span>2 4 4
</span><span>3 3 4
</span><span>всего вариантов: 8
</span><span>
</span>
Var
a,b,r:byte;
begin
randomize;
a:=Random(9)+1;
b:=Random(9)+1;
Write(a,' x ',b,' = ');
Readln(r);
if r=a*b then Writeln('Правильно!')
else Writeln('Вы ошиблись. Верный результат ',a*b)
end.
Ответ:
1б,байт 1024, КБ 980,мб 1024
<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>