Var i,k:integer;
s:string;
Begin
for i := 1 to 25 do begin
readln(k);
s:=s+inttostr(k);
end;
k:=0;
for i := 1 to length(s) do
if s[i]='0' then k:=k+1;
writeln('K=',k);
End.
var a, b, c: real;
begin
write('Введите стороны>> ');
read(a);
read(b);
readln(c);
if (a = b) and (b = c) then
write('Треугольник равносторонний')
else if (a = b) or (b = c) or (a = c) then
write('Треугольник равнобедренный')
else write('Треугольник разносторонний');
end.
1) Высчитаем количество пикселей в изображении.
128 * 128 = 16384 пикселя.
2) Узнаем информационный вес каждого пикселя.
Формула нахождения информации N = 2i (где N - количество цветов в палитре, i - количество информации в битах, которое несет каждый пиксель).
256 = 28
Один пиксель несет 8 бит информации.
3) Найдем информационный вес изображения.
16384 * 8 = 131072 бита
4) Переведем биты в байты. 1 Байт = 8 битам.
131072 : 8 = 16384 байта.
5) Переведем байты в Кбайты. 1 Кбайт = 1024 байт.
16384 : 1024 = 16 Кбайт.
Ответ: объем памяти нужен минимум 16 Кбайт.