Прямоугольный параллелепипед с ребрами 23,46 и 69.

Предикат: Vol(a, b,c, v):=Mult(a, b,z),Mult(z, c,v).

За

Этот предикат принимает значение Истина в том и только в том случае, когда ... Пусть требуется найти объем прямоугольного параллелепипеда с ребрами 10, 20 и 30. Пишем предикат, определяющий объем: Vol ( a , b , c , v ) : = Mult ( a , b , z ) ... v). Легко предсказать, какой ответ даст Пролог на этот за Объяснение:

юра из новгородатоля из москвы

алеша из томска

коля из перми

витя из санкт-петербурга 

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.