<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadReal('Введите число:');
if n>0 then Writeln('Число положительное')
else if n<0 then Writeln('Число отрицательное');
if n=35 then n:=71
else if n<35 then n-=23;
Writeln('Результат: ',n)
end.
Ответ:
2.5 мбайт
Объяснение:
1280 * 1024 * 16 бит = 20 971 520 бит
20 971 520 бит / 8 = 2 621 440 байт
2 621 440 байт / 1024 = 2560 кбайт
2560 кбайт / 1024 = 2.5 мбайт
Var b,i,k,n: int64;
begin
readln(n);
b:=1;
for i := 1 to n do
b:=b*i;
writeln(b);
end.
Входные данные подставлять в переменную n
<span>В) FoxitReader - </span>программное обеспечение, для просмотра электронных документов
не является браузером