if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж
Ответ дал: Гость
var
a: array[1..100] of integer;
i,s,r: integer;
begin
for i: =1 to 100 do read(a[i]);
for i: =1 to 100 do
begin
if a[i]< 0 then r: =r+a[i] else s: =s+a[i];
end;
writeln('сумма всех положительных чисел= ',s);
writeln('сумма всех отрицательных чисел= ',r);
readln
end.
посчитает максимум 100 чисел.
Ответ дал: Гость
A. решение на калькуляторе 1. находим общее количество пикселей n = 1024×768 = 786432 2. находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. определяем объем информации в битах i = n×k = 786432×6 = 4718592 бит 4. переводим в более крупные единицы - в байты: 1 байт=8 бит; 4718592 бит/8 = 589824 байт - в кбайты: 1 кбайт=1024 байта; 589824 байт/1024 = 576 кбайт - в мбайты: 1 мбайт=1024 кбайта; 576 кбайт/1024 = 0.5625 мбайт. б. решение "в степенях двойки" 1. находим общее количество пикселей n = 1024×768 = 2¹⁰×2⁹×1.5 = 2¹⁹×1.5 2. находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. определяем объем информации в битах i = n×k = 2¹⁹×1.5×6 = 2¹⁹×9 бит 4. переводим в более крупные единицы - в байты: 1 байт=2³ бит; 2¹⁹×9 бит/2³ = 2¹⁶×9 байт - в кбайты: 1 кбайт=2¹⁰ байт; 2¹⁶×9 байт/2¹⁰ = 2⁶×9 кбайт = 64×9 = 576 кбайт - в мбайты: 1 мбайт=2¹⁰ кбайт; 2⁶×9 кбайт/2¹⁰ = 2⁻⁴×9 мбайт = 9/16 мбайт = 0.5625 мбайт.
Популярные вопросы