var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение:
program zz1;
var n,n1,n2,n3:integer; //задаем переменные
begin
write('введите заданное трехзначное число');
read(n); //вводим с клавиатуры заданное трехзначное число
n1:=n div 100; //находим первую цифру числа
n2:=(n mod 100) div 10; //находим вторую цифру числа
n3:=n mod 10; //находим третью цифру числа
if (n1 mod 2 = 0)and(n2 mod 2 = 0)and(n3 mod 2 = 0) //проверяем, если все цифры четные, то выводим один ответ, если нет, то другой
then write('все цифры числа четные ') else write('некоторые цифры числа не четные');
Объяснение:
1.
1.572864
1024×768×2=1572864
1572864 байт = 1.572864 мегабайт (10⁶ байт)
2.
32х32=1024 точек.
то есть 1 байт должен хранить информацию о 2 точках.
8 бит в байте.
на одну точку приходится 4 бита
2 в 4 степени - 16 цветов
вроде так.
3.
2.5 кБайт = 2560 байт.
2560 байт / 2560 символов = 1 байт/символ
1 байт = 8 бит
8 бит = 256 вариантов (от 00000000 до 11111111).
ответ: 256 символов в алфавите.
4.
1) N = 2^i
256 = 2^i
i = 8 бит глубина кодирования одной буквы из 256-символьного алфавита
2) 30 * 70 * 5 = 10500 символов всего на 5 страницах текста
3) 10500 * 8 бит = 84000 бит нужно для кодирования всего текста
84000 / 8 = 10500 байт / 1024 = 10,25 Кбайт
ответ: 10,25 Кбайт нужно для кодирования всего текст
5. если я не ошибаюсь 12
Объяснение: