Количество информации на 1 точку = log(2)16777216 = 24 бит = 3 байта
Для всего изображения:
1024*768*3 байт = 768*3 Кбайт = 768*3/1024 Мбайт = 2,25 Мбай
Видеокарта AMD Radeon HD 7970
Открыть
Проверить на вирусы
Открыть с помощью
Копировать
Отправить
Удалить
Свойства
Вместо "a := a * a" можно использовать "a := sqr(a)"
--------------------------------------------------------------------
var
a : integer;
begin
write('Введите число: '); //Вывод сообщения
readln(a); //Ввод числа
a := a * a; //Возведение в квадрат
writeln('Введенное число в квадрате = ', a); //Вывод результата
readln;
end.
Var
ch, otvet, i: longint;
begin
for i := 1 to 5 do
begin
ReadLn(ch);
otvet := otvet + ch;
end;
WriteLn(otvet);
end