Нужно вставить оператор - while,паскаль точно не помню,но вроде бы ещё for
Если на столе лежит колода, состоящая из 36 карт, вынув одну из них , количество информации будет равно 1/36
Var x,y: real;
begin
read(x);
y:=(2*x)/(4-x);
writeln('y=',y);
end.
Вторая задача
var k,i,p:integer;
begin
p:=1;
read(k);
for i:=1 to k do
if i mod 2=1 then p:=p*i;
writeln( 'p=',p);
end.
2*x*y
так это будет выглядеть