№1
800*600*24=11520000бит=1440000байт=1406,25Кбайт
№2
1024*768*16=12582912бит=1572864байт=1536Кбайт
№3
10*10*8=800бит=100байт
№4
1600
№5
1024 точки
№6
600/2,54 = 236 точек/см.<span>
</span>2360*2360*32=21756,25Кбайт
Это программа или техническое средство, выполняющее трансляцию программы
<h3>PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s:=ReadLines('data.txt').First.Select(t->t.ToDigit)
.Aggregate(BigInteger(1),(a,b)->a*b).Println
end.
<h2>Пример</h2>
10057531504895395788703629698793031096713606951075840000000000000
<h3>Файл data.txt дан во вложении</h3>
1.Начало
2.Сделать ход на 2 клетки вправо
3.Сделать ход вверх на 1 клетку
4.ход на 2 клетки влево
5.Ход на 2 клетки вверх
6.ход на 4 клетки вправо
7.ход на 2 клетки вниз
8.Ход на 1 клетку вправо
9.ход на 1 клетку вверх)
У тебя не правильно сделан алгоритм
Алгоритм на условном языке.
m:=0. "количество отрицателных"
p:=0 "количество положительных"
i:=1.
пока i<>0 повторять
i:=прочитать число, введенное с клавиатуры.
если i>0 то p:=p+1.
если i<0 то m:=m+1.
конец цикла пока.
вывести на экран('процент положительных = ', p/(p+m)).
вывести на экран('процент отрицательных = ', m/(p+m)).
Алгоритм будет верно работать, если введено хотя бы одно число, отличное от нуля. В противном случае возникнет ошибка деления на ноль. В нормальных программах подобные случаи отлавливаются и корректно обрабатываются.
