ПАСКАЛЬ ABC!!!
Ввести массив на 15 чисел. Сумму 5 и 7 элементов массива принять за длину прямоугольника. Сумму 8 и последнего элементов принять за ширину прямоугольника. Вычислить периметр и площадь прямоугольника, вывести их на экран.
Ответы на вопрос
Ответил deafol
0
var
a : array[1..15] of integer;
i, l, d : integer;
begin
for i := 1 to 15 do
begin
writeln(i ,' число');
read(a[i]);
end;
l := a[5] + a[7];
d := a[8] + a[15];
writeln('Периметр: ',(l + d) * 2, ' Площадь: ', l *d );
end;
a : array[1..15] of integer;
i, l, d : integer;
begin
for i := 1 to 15 do
begin
writeln(i ,' число');
read(a[i]);
end;
l := a[5] + a[7];
d := a[8] + a[15];
writeln('Периметр: ',(l + d) * 2, ' Площадь: ', l *d );
end;
Ответил TaTaPmember
0
площадь равзе так находится?
Ответил TaTaPmember
0
разве*
Новые вопросы