1. Напишіть програму, яка за поданим числом n виводить на екран всі числа, кратні 2, що не перевищують подане число. 2. Напишіть програму, яка за поданими числами a та b виводить всі числа, кратні 5, з цього
проміжку. Якщо ab – в порядку спадання, якщо a=b – вивести на екран добуток кубу цього числа та самого числа.
3. Дано число а, причому -109 <а<109. Напишіть програму, яка знаходить кількість трійок у цьому числі.
4. Дана послідовність цілих чисел, кількість яких не перевищує 10000. Послідовність завершується числом 0, всі наступні числа зчитувати не потрібно. Виведіть на екран кількість чисел в цій послідовності, що кратні 3.
Сначала найдём количество пикселей по горизонтали, по вертикали, затем общее количество пикселей, исходя из разрешающей сканера. Зная, что каждый пиксель кодируется 4 битами, найдём объём памяти, необходимый для хранения графической информации, что и будет являться информационным объёмом файла.
1) 600 × 8 = 4800 (px) – количество пикселей по горизонтали.
2) 1200 × 8 = 9600 (px) – количество пикселей по вертикали.
3) 4800 × 9600 = 46 080 000 (px) – всего пикселей.
4) 46 080 000 × 4 = 184 320 000 (bit) = 22 500 (KB)
ответ: полученный графический файл будет иметь объём 22 500 килобайт.
begin
var n:=ReadInteger('n=');
if n<0 then Writeln(n,'! не определено: n<0')
else
if n=0 then Writeln('0!=1')
else begin
var p:BigInteger:=1;
for var i:=2 to n do p*=i;
Writeln(n,'!=',p)
end
end.
Тестовое решение:
n= 138
138!=691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000