Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
хейт и пиар логично?логично) если по-современному тогда правильно
a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
b = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));
c = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));
writeln("периметр = ",a+b+c);
s = {формула герона}
var
a: array [1..20] of integer;
i,max: integer;
begin
max: =0;
for i: =1 to 20 do
if i mod 2=0 then a[i]: =random(50)+50
else a[i]: =random(50)+150;
if a[i]> max then max: =a[i];
write(a[i]: 4);
end;
writeln;
writeln('max=',max);
end.
Популярные вопросы