7x+6y+24, 14x+12y+20 и <span>21x+18y+3 — у этих трёх уравнений соотношение коэффициентов при х и у = 7:6 (7:6, 14:2 и 21:18)</span>
//Pascal ABC.NET 3.1 сборка 1219
Var
f:file;
n,i:integer;
r,s:real;
begin
randomize;
readln(n);
assign(f,'OUTPUT.DAT');
rewrite(f);
for i:=1 to n do
begin
r:=random;
if i<>n then write(f,floattostr(r),' ') else write(f,floattostr(r));
s:=s+r;
end;
close(f);
writeln(s);
end.
Пример ввода:
4
Пример вывода:
1.10933282929907
Содержимое <span>OUTPUT.DAT представлено во вложении.</span>
4. Ответ: 1 1 2 2 1
(9 - 1 - 1) * 3 * 3 - 1 = 62
9 - 1 = 8
8 - 1 = 7
7 * 3 = 21
21 * 3 = 63
63 - 1 = 62