Не сказанно сколько см юля но ведь девушки не выростают до токого размера
//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>
Двоичная:<span>1011111001
Восьмиричная:</span><span>1371
Шеснадцатеричная:</span><span>2F9</span>
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=['A'..'F','X'..'Z'];
Writeln(s)
end.