Плохо понел задание, но думою помог
uses crt;
var i,n:integer;
begin
writeln('Введите n');
read(n);
i:=122;
while i > 96+n do
begin
write(' ',Chr(i));
i:=i-1;
end;
end.
сначала нужно узнать размер 640*480*3=921600байт, переведем теперь в биты 921600*8=7372800 теперь делим и получаем секунды 7372800/28 800=256сек
УСЛОВИЯ ПИСАТЬ НЕ СОБИРАЮСЬ, И ТАК МНОГО СПРОСИЛ.
1)16 = 2⁴, значит для 1 пикселя требуется 4 бита. Для всей картинки получим:
800*600*4=1920000 бит = 1920000 байт=1875 Кбайт
2)Ищем площадь поверхности картинки: 50,8*30,48=1548,384 потом переводим в дюймы, полученное количество дюймов умножаем на 100 и на 24. Полученный результат будет ответом
1 c:=0
for i:=1 to 8 do begin
if a [i]<0 then inc (c);
end;
writeln (c);
2 c:=0
for i:=1 to 8 do begin
c=c+i×i;
end;
writeln (c);
Решение задач - в прилагаемом файле. Решение приводится, что называется, "в лоб", то есть без оптимизации (такого в условиях нет). Это в первую очередь, относится к 1 задаче, хотя и остальные можно улучшить, если потребуется.