Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.
Пусть "1" - золотая монета, тогда "0" - серебряная. Из условия задачи следует, что можно составить только две возможные комбинации расположения монет: 0101 и 1010. Тогда Архимеду нужно взвесить две центральные монеты. Если левая окажется тяжелее, тогда получится первая цепочка, т. е. серебряная, золотая, серебряная, золотая, иначе вторая, т.е. золотая, серебряная, золотая, серебряная.
Определите порядок действий компьютера при вычислении выражения:
1 /
2 *
3 +
4 -
Program long;
uses Crt;
const n=5;
type Vec=array [1..n] of integer;
var A, B, C: Vec;
i,j,k, Col: integer;
Pro: longint;
a1, a2: integer;
begin
ClrScr;
Randomize;
Col:=1; Pro:=1;
WriteLn ('Massiv A:');
for i:=1 to n do
begin
A[i]:=500+random(2000);
Write(A[i]:6);
if A[i] >1000 then
begin
B[Col]:=A[i]; Col:=Col+1;
end;
end; WriteLn;
Col:=Col-1; WriteLn;
WriteLn ('Massiv B:');
for i:=1 to Col do
WriteLn(B[i]);
WriteLn;
k:=1;
for i:=1 to n do
begin
a2:=B[i] mod 10;
a1:=B[i] div 1000;
if sqr(a1)<sqr(a2) then
begin
C[k]:=B[i];
k:=k+1;
end;
end;
for i:=1 to k-1 do
Pro:=Pro*C[i];
WriteLn ('Pro=',Pro);
ReadLn;
end.
