Запиши программу в Паскале для вычисления площади прямоугольника со сторонами b и m.

image.jpg

var
b, m,s:word;
begin
writeln('Введи длину и ширину прямоугольника b и m');
readln (b,m);
s:=b*m;
writeln('s=',s);
readln;
end.
var
b, m,s:word;
begin
writeln('Введи длину и ширину прямоугольника b и m');
readln (b,m);
s:=b*m;
begin
writeln('Введи длину и ширину прямоугольника b и m');
readln (b,m);
s:=b*m;
writeln('s=',s);
readln;
end.
var
b, m:word;
begin
writeln('Введи длину и ширину прямоугольника b и m');
readln (b,m);
s:=b*m;
writeln('s=',s);
readln;
end.

Программа, которая использует два массива

var 
c, a: array[1..20] of integer; 
i: integer;
begin 
write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 1 to 20 do   begin   
a[i] := c[20 - i + 1];   
write(a[i], ' '); 
end;  
end.

ИЛИ  Программа не использующая два массива, а просто переворачивающая первый

var 
c: array[1..20] of integer; 
i: integer;
begin  write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 20 downto 1 do  write(c[i], ' '); 
end.

Обе программы работают!

1) Если x^3 < 10, то (x+1)^3 > 20. Это верно при x = 2. 
2^3 < 10, 3^3 > 20
2) Если x(x+1) > 10, то (x+1)(x+2) < 10. Это верно при x = -4
(-4)(-3) = 12 > 10; (-3)(-2) = 6 < 10 
Но при x = 2 будет ложная посылка (2*3 > 10 - это ложно),
из которой следует ложный вывод 3*4 < 10.
Поэтому импликация верна. ответ x = 2
3) Если x(x+1)(x+2) > 25, то x < x-1
Это сложнее. x < x-1 - ложно при любом х.
Импликация будет истинной, только если посылка ложная.
x(x+1)(x+2) > 25 - должно быть ложно. Это при x = 2.
x(x+1)(x+2) = 2*3*4 = 24.