Program CrazyCoder;
var n:real; i:integer;
begin write('Введите n ');
read(n);
if (n<2) or (n>10) then
begin
while (n<=1) or (n>10) do
begin
writeln('Ошибка! Число n должно быть в диапазоне от 2 до 10');
write('Введите n ');
read(n);
end;
end;
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
<span>end.</span>
Решение задачи представлено во вложенном файле.
Переведём гигобайты в мегабайты:
1024 * 2 = 2048 мб (на флешке)
Потом узнаем размер 4-ёх папок:
635 * 4 = 2540 мб
И узнаем, сколько места нам не хватит:
2540 - 2048 = 492 мб
Ответ: не хватит 492 мб
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var r:=Range(1,ReadInteger('n='),2);
var p:=r.Aggregate(BigInteger(1),(i,j)->i*j);
var s:=r.Sum;
Writeln('x=',p,'/',s,'=',real(p)/s)
end.
<u>Пример</u>
n= 39
x=319830986772877770815625/400=7.99577466932194E+20