Регистрация
niktim27
26.02.2022 02:28
Информатика
Есть ответ 👍

Напишите на ая алгоритм сложения двух простых дробей (без сокращения дроби) на pascal abc

161
235
Посмотреть ответы 2

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

ghdvbeudv
ghdvbeudv
4,5(88 оценок)
Var       a, b, c, d: integer; begin       readln(a, b);       readln(c, d);       writeln(a * d + c * b, '/', b * d); end.
pamagiteplease
pamagiteplease
4,4(50 оценок)

program нахождение площади и периметра треугольника;

var x1, y1, x2, y2, x3, y3, a, b, c, p, d1, d2, d3, p,p, s: real;

begin

readln (x1, y1, x2, y2, x3, y3);

d1: = sqrt (sqr(x2-x1) + sqr (y2-y1));

d2: = sqrt (sqr(x3-x2) + sqr (y3-y2));

d3: = sqrt (sqr(x1-x3) + sqr (y1-y3));

p: = d1+d2+d3;

p: =p/2;

s: = sqrt(p*(p-d1)*(p-d2)*(p-d3));

end.

 

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