с паскалем!
Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 9. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 9.
- Равнобедренный треугольник - это треугольник, у которого две стороны равны между собой.
- Равносторонний треугольник - это треугольник, у которого все стороны равны между собой.
- Разносторонний треугольник - это треугольник, у которого все стороны имеют разную длину.
2. Составим алгоритм программы:
(см. рисунок).
3. Напишем программу, которая будет определять, является ли треугольник: равнобедренным, равносторонним или разносторонним:
var a,b,c: Integer;
begin
writeln('Введите длину стороны a');
readln(a);
writeln('Введите длину стороны b');
readln(b);
writeln('Введите длину стороны c');
readln(c);
if (a=b) and (a=c) and (b=c) then writeln('Треугольник - равносторонний') else
if (a<>b) and (a<>c) and (b<>c) then writeln('Треугольник - разносторонний') else
writeln('Треугольник равнобедренный');
end.
1. Находим количество точек (пикселей) в кадре 640×480 = 307200
2. Находим размер палитры 250×1024×8/307200 = 6 бит (отбрасываем дробную часть после деления)
3. Количество цветов в палитре не может превышать 2⁶ = 64
Пояснение: 250 Кбайт = 250×1024 байт = 250×1024×8 бит.
Задача 2.
1. Находим объем исходной палитры
256 = 2⁸, поэтому объем составит 8 бит
2. Находим объем новой палитры
2=2¹, поэтому объем составит 1 бит.
3. Находим, во сколько раз уменьшится объем файла
8/1=8 - в восемь раз.
4. Если первоначальный объем был Х, то новый станет Х/8. Уменьшение объема составит X-X/8 = 7X/8 и это равно 7 Кбайт.
Тогда 7Х=7*8 Кбайт, откуда Х=8 Кбайт