8гб = 8*1024 = 8192
490 * 17 = 8330
8330>8192
Ответ нет, нельзя. Однако если засунуть эти видеоролики в сжатый zip архив то возможно что то получится. В условиях школьной задачи это вряд ли предполагается.
var
x: real;
begin
Write('Введите значение аргумента, не равное нулю: '); Readln(x);
if x = 0 then Writeln('Нулевой аргумент недопустим!')
else Writeln(sqr(x) * abs(1 - x) - 7 / (sqr(x) - 15))
end.
<u>Тестовое решение:</u>Введите значение аргумента, не равное нулю: 24.35
13844.7282626493
Если писать в паскале(Pascal ABC) то попробуй так:
Uses crt;
Var
a:real;
begin
readln(a);
if (a > 180) then
writeln ('Высокий')
else
writeln ('Не очень высокий);
End.