Ответ:
program Example;
var
a, b: Double;
begin
Write ('Введите длину и ширину участка: ');
ReadLn (a, b);
WriteLn ('Площадь = ', (a + b) * 2 :10 :2);
ReadLn;
end.
Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
Получатся числа 16 15 5 4 3 1
Сумма=44
Числа 10, 12, 18, 20, 21, 24, 27, 30, 36, 40, 42, 45, 48, 50, 54, 60, 63, 70, 72, 80, 81, 84, 90,
Всего 23 штуки или вот <span>то числа, сумма которых равна 3 (12,21,30) </span>
<span>и 9 (18,27,36,45,54,63,72,81,90). </span>
<span>И все остальные круглые числа - 30 и 90 уже посчитали, остались 10,20,40,50,60,70,80. </span>
<span>И еще 42. </span>
<span>Всего 20 чисел. </span>
А) 100111
Б) 101011
В) 1101111
Г) 101001101