7С->124 в десятичной
->1111100 в двоичной
-> 5 единиц
Program p1;var n:integer;begin Writeln ('Введите число');Readln (n);if n>0 Then a:=(n*3) and (n mod 2=0) Else; Writeln (n);Readln;End.
не точно нужно дополнить,но что-то типо этого
Var b,c:real;
<span>begin </span>
<span>b:=1; </span>
<span>c:=2; </span>
<span>repeat </span>
<span>b:=b+1; </span>
<span>c:=c*b; </span>
<span>until b=4; </span>
<span>writeln('Да'); </span>
<span>end. </span>
1 дюйм = 2,54 см (для упрощения расчетов будем считать, что 1 дюйм = 2,5 см).
10 см * 10 см ≈ 4 дюйма * 4 дюйма
Количество точек сканированного изображения = 600*600*4*4
32 бита = 32/8 байт = 4 байта
Объем файла = 600*600*4*4*4 байт = 600*600*4*4*4/1024 Кбайт = 22500 Кбайт = 22500/1024 Мбайт ≈ 22 Мбайта