Uses crt;
var
b, a: real;
n: integer;
begin
clrscr;
repeat
Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
Readln(n);
case n of
1:
begin
write('Сторона квадрата=');
readln(a);
Write('S=', a * a);
end;
2:
begin
write('Стороны прямоугольника=');
readln(b, a);
Write('S=', b * a);
end;
else exit;
end;
until false;
end.
Const
auto = true;
n = 70;
var
a: array[1..n] of integer;
i: integer;
begin
for i := 1 to n do
begin
if auto then
a[i] := random(100)
else readln(a[i]);
if (a[i] <= 70) and (a[i] >= 30) and (a[i] mod 9 > 0) then
writeln(a[i]);
end;
end.
1. A2=12*12/(12*12)=1; B2=12*12/12*12=144; C2=(12*12)/12*12=144
2. C2=(12*12)/(12*12)=1
Рассматривать по элементу каждого типа и менять их значениями по условию.