Регистрация
elyakiselya17
03.11.2021 16:31
Информатика
Есть ответ 👍

даны стороны треугольника a и b. найдите его площадь по формуле S=a*b и периметр P=2*(a+b). написать программу для этой задачи на языке Паскаль​

280
338
Посмотреть ответы 2

Ответы на вопрос:

FlaxyPlay
FlaxyPlay
4,4(28 оценок)

var

a, b, S, P: real;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

s := a * b;

p := 2 * (a + b);

write('Площадь прямоугольника -- ', s, '; Периметр прямоугольника -- ', p); end.

Объяснение:

chunya20041
chunya20041
4,6(79 оценок)
Пояснение: заполни массив 10-ю элементами и он выдаст то, что тебе нужно var arr: array [1..10] of integer; var i,min,max: integer; begin for i: =1 to 10 do begin writeln('введите ',i,' элемент'); readln(arr[i]); end; min: =0; max: =0; for i: =1 to 10 do begin if (arr[i]< 0) then begin if (arr[i]< min) then begin min: =arr[i]; end; end else if (arr[i]> 0) then begin  if (arr[i]> max) then begin  max: = arr[i]; end; end; end; writeln('минимальный элемент среди отрицательных чисел ',min); writeln('максимальный элемент среди положительных чисел ',max); end.

Популярно: Информатика