№1
var vol, a, b, c: real;
beginwrite('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
write('Введите сторону c: ');
readln(c);
vol := a * b * c;
writeln('Объем прямоугольного параллелепипеда равен ', vol);
<span>end.
№2
const a = 3;
const h = 7;
var S: real;
begin
S := 1 / 2 * a * h;
writeln('Площадь треугольника равна ', S);
<span>end.
№3
var s: string;
begin
s := 'Чему равно 10 : 2?';
writeln(s);
readln();
<span>end.</span></span></span>
Ответ:VVVVVVVVVVVVVVVVVVVVVVVVVV
V = K * I, где:
V - объем.
K - размер изображения.
I - количество бит на цвет.
N = 2^i, где:
N - количество цветов.
Дано:
I1 = 24 бит.
N2 = 16 цветов.
Найти: V1/V2.
Найдем количество бит на цвет при вторичном сохранении:
N = 2^i.
16 = 2^i.
I2 = 4 бита.
Найдем во сколько раз одно изображение больше другого.
V1/V2 = (K * I1)/(K * I2).
Так как сохраняем тот же рисунок, то размер изображения не меняется, его можно сократить.
V1/V2 = I1/I2.
V1/V2 = 24/4.
V1/V2 = 6.
Ответ: объем изменился в 6 раз.
Надеюсь дальше сам поймёшь http://mabi.vspu.ru/files/2016/05/0003-003-Tablitsy-istinnosti-logicheskikh-operatsij.jpg
var a,b,c,e,k:integer;
begin
k:=9;//вставить любоое число
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then b:=b+a;
if a<0 then c:=c+1;
if (a mod k = 0)and(a<>0) then
if e=0 then e:=a else e:=e*a;
end;
writeln('сумма положительных элементов = ',b);
writeln('кол-во отрицательных элементов = ',c);
writeln('произведение элементов, кратных ',k,' равнo ',e);
end.
если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);
