Первый 8 второй 6
%%%%&&&&&&&&&&&$$
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.
Должно стоять вместо * 4
потому что 1*4=4 4*4=16 16*16=64 и т. д.......
Информатизация – процесс, при котором создаются условия, удовлетворяющие потребностям любого человека в получении необходимой
Pascal
------------------------------------------------------------------
var
x: integer;
begin
for x := -99 to 99 do
If abs(x) mod 10 = 7 then
writeln(x);
readln;
end.