{все строки с фигурными скобками можно удалить, это комментарии, которые на программу не влияют} var a: array[1..10]of real; i,k:integer;t:real; begin writeln('Введите t'); {На экране появится текст "Введите t"} readln(t); {В этот момент появится курсор и можно будет ввести значение t} writeln('Введите массив'); for i:=1 to 10 do begin readln(a[i]); {вводим элементы массива с клавиатуры} if a[i]<t then {если элемент массива <t} k:=k+1; {то считаем количество таких элементов} end; writeln; writeln('количество: ',k); end.
{Возможно это можно более просто организовать, однако программа работает :) } Var a,b,ax,x: integer; flag: boolean; Begin Readln(a,b); ax:=a; If (a>=0) and (b>=0) then flag:=true else begin a:=abs(a); b:=abs(b); flag:=false; end; If (a=0) or (b=0) then write('0') else begin while b > 1 do begin a:=a+ax; dec(b); end; x:=a; if flag then write(x) else write(x-x*2); end; End.
У вас указана информационная ёмкость картинки, указаны размеры картинки. 4 Кбайта = 4*8 Кбита = 32 Кбита = 2^5 Кбит = 2^15 бит Точек в картинке 32 * 1024 = 2^5*2^10 = 2^15 И теперь мы видим, что памяти хватит только на чёрно-белую картинку, с глубиной цвета 1 бит на пиксель. Цветов получается 2 - белый и чёрный. Нет, могут быть и другие, но всё равно их только 2, больше одним битом не закодировать, если не применять алгоритмы сжатия.