Var a,b,c,x:real;
<span>begin </span>
<span>writeln('Введите a,b,c,x'); </span>
<span>read(a,b,c,x); </span>
<span>if (a<x) and (b<x) and (c<x) then writeln('Кирпич пройдет') else </span>
<span>writeln('Кирпич не пройдет'); </span>
<span>end.</span>
X : = 4 + 8 * 3 ; - то есть x=4+8*3 = 4+24 = 28
y : = ( x mod 10 ) + 15; // mod 10 - остаток от деления на 10. y = (28 mod 10)+15 = 8+15 = 23
<span>x : = ( y div 10 ) + 3 // div - целочисленное деление, (y div 10) + 3 = (28 div 10) + 3 = 2+3 = 5
Сумма переменных равна 23+5 = 28</span>
1)
var max, min, i, n : integer;
a : array [1..255] of integer;
BEGIN
// ввод массива
read(n);
for i := 1 to n do
read(a[i]);
// то, что в блок-схеме
max := a[1]; min := a[1];
for i := 2 to n do begin
if a[i] < min then
min := a[i]
else if a[i] > max then
max := a[i];
end;
write(min, ' ', max);
END.
2) Если k - это любое число >= 1, то значения элементов массива сдвинутся на 1 влево. К примеру, если k = 1, то a[1] = 12, a[2] = 5, a[3] = 8 и так далее
V=i*T*D*1=16*10*44100=<span>
7056000 бит/8/1024=</span><span>
<span>861,328125Кбайт</span></span>