Справочная система запускается с помощью кнопки F1.
x = 29
y = 20
Программа:
var x, y: integer;
begin
x := 13; y := 2;
while y < 12 do
begin
if y <= x then
begin
x := x - 3;
y := y * 2;
end
else
begin
y := y - 3;
x := x * y;
end;
end;
writeln(x,' ', y);
end.
Дано:
Разрешающая способность сканера 600 х 600 dpi.
Размер 10см x 15см.
Глубина цвета - 3 байта.
Найти:
Каков информационный объём этого файла?
Решение:
Вначале переводим глубину цвета из байт в биты
3 байта * 8бит в байте = 24 бит
Вычисляем разрешение сканера в 1 дюйме квадрат
600*600 = 360 000 пикселей в 1 дюйм^2
Переводим размер картинки из квадратных сантиметров в квадратные дюймы.
10см = 3.937дюйма
15см = 5,906дюйма
10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2
Вычисляем количество пикселей в изображении
23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей
Информационный объём вычисляем по формуле
количество пикселей * глубину цвета =
8 370 000 пикселей * 24 бит = 200 880 000 бит.
Переводим в байты делением на 8.
25 110 000 байт
или же делим на 1024*1024 чтобы получить количество мегабайт
23,95 Мегабайт
Ответ:
Информационный объём сканированного изображения =
25 110 000 байт или 23,95 Мегабайт
Var x,a,b,c:integer;
begin
writeln ('введи трехзначное число');
readln (x);
c:=x mod 10;
b:=x div 10 mod 10;
a:=x div 100 mod 10;
if a=с then writeln ('Число является перевертышем')
else writeln ('число не является перевертышем');
if (a=b) or (a=c) or (b=c) then writeln ('да')
else writeln ('нет');
end.