766439бит=0.0912474мб
1.65гб=1689.6мб
<span>Длину имени файла составляет 225 символов. В имени можно использовать пробелы. Запрещено использование следующих символов: </span>
<span>“|” – вертикальная черта, </span>
<span>“\” – обратная черта, </span>
<span>“:” – двоеточие, </span>
<span>“?” – знак вопроса, </span>
<span>“*” – звездочка, </span>
<span>“”” – кавычка, </span>
<span>“<” – треугольная скобка, </span>
<span>“>” – треугольная скобка. </span>
<span>При использовании файла с длинным именем в программе, не являющейся приложением Windows, имя файла будет усечено – до первых шести символов длинного имени без пробелов.</span>
//PascalABC.NET
//В задаче есть ограничение по времени в 1 секунду
//поэтому была использована функция milliseconds
//которая возвращает кол-во миллисекунд с момента
//начала работы программы
var
N, cur, count: uint64;
begin
read(N);
cur := 1;
count := 0;
while (cur <> 0) and (milliseconds() / 1000 < 0.78) do
begin
cur := (cur * 10 + 1) mod N;
count := count + 1;
end;
if (cur = 0) then write('1' * (count = 1 ? count : count + 1))
else write('NO');
end.
Проверьте, такая формула у Вас?
В ответе A только, все остальное сократится
Ответ:
program s;
var
a:array [1..50] of integer;
i,P,C: integer;
begin
for i:=1 to 7 do
begin
a[i]=random (30);
end;
for i:=1 to 7 do begin
C:=C+a[i];
Р:=P*a[i];
end;
writeln (C);
writeln (P);
end.
Объяснение:
Вообще программа вычисляла произведение всех элементов массива. Теперь вычисляет и сумму всех элементов массива.
