2.4 Ответ 4
Так как Х больше двух и не равен 3. Остаётся только 4.
В 2.5 я вопроса не понимаю
№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>
program z3;
uses crt;
var x,y,z,k:byte;
s:integer;
begin
clrscr;
write('Введи x='); readln(x);
write('Введи y='); readln(y);
write('Введи z='); readln(z);
if (x>z) and (not(odd(x))) then begin
s:=s+x;
k:=k+1;
end;
if (y>z) and (not(odd(y))) then begin
s:=s+y;
k:=k+1;
end;
writeln('Сумма чётных элементов, больших z равна ',s);
writeln('Кол-во чётных элементов, больших z равно ',k);
readkey
end.