1000 байтов,1024 бита,10 битов,1 байт, 1 бит.(1 байт=8 бит)
var n,i:integer;
Begin
read(n);
for i:= 2 to n-1 do
if n mod i = 0 then writeln('No');
End.
var n,i:integer;
s:string;
Begin
read(s);
for i:= 1 to length(s) do
if s[i]="a" then n:=n+1;
writeln(n);
End.
Решение:
i=32 байт=256 бит
Количество точек изображения равно: 2560 x 1024=2621440
Объём видеопамяти= количество точек изображения умножить на глубину цвета
Объём видеопамяти= <span>256 бит х </span><span>2621440 = 671088640 бита / 8 бит / 1024 байт = 81920 Кбайт / 1024 байт = 80 Мбайта</span>
Ответ:объём видеопамяти= <span>80 Мбайта</span>
Решение для Pascal.
Запускаем цикл от 0 до 9 (всего 10 повторений - 10 чисел) и каждый повтор берём число n := 2*i + 1, которое будет гарантированно нечётным. Затем выводим само число и его куб