<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.
Var
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.
1024*768= 786 432 пикселей
=256
8 бит
786 432 *8 = 6 291 456 бит
6 291 456 / 8 = 786 432 байт
786 432 / 1024 = 768 килобайт
Ответ: 786 Килобайт
ЛАЙКНИ ПЛИЗ