Регистрация
AnnaKhusainova
01.03.2023 07:23
Информатика
Есть ответ 👍

Я не знаю как вас умолять мне!!! солнышки вас что есть,только умоляю Выполнить в среде программирования(Паскаль abc). Заданные действительные числа х1, у1, х2, у2, х3, у3, которые определяют координаты вершин треугольника. Определить периметр и площадь треугольника, создав процедуру, вычисляет длину отрезка и функцию для определения площади треугольника.

142
291
Посмотреть ответы 1

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

1234567890640
1234567890640
4,6(3 оценок)

так как не формализовано выводит последовательно суммы кратных 3 и двухзначных чисел

program tz5; constn=10; vara: array [1..n] of integer; i,b: integer; beginrandomize; for i: =1 to n do begin  a[i]: =random (20);   a[i]: =a[i]-10;               writeln(i,'  ',a[i]); end; b: =0; for i: =1 to n do      if (a[i] mod 3)=0 then            b: =b+a[i]; writeln('summa kratnyh 3m=',b); b: =0; for i: =1 to n do      if abs(a[i]) > 9 then b: =b+a[i]; writeln('summa dvuhznachnyh =',b); readln; end.

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