Сколько раз будет выполнен этот цикл? i: =2; while i 5 do begin writeln( ! ); i: =i+1; end; какое число - id826303620220606 от maxzaytsev5120 06.06.2022 20:52

Question

Информатика: Сколько раз будет выполнен этот цикл? i: =2; while i 5 do begin writeln( ! ); i: =i+1; end; какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i: =; while i =6 do begin writeln( ! ); i: =i-1; end; чему будет равно значение переменной «a» после выполнения этого цикла? i: =3; a: =12; while i 3 do begin a: =a+i; i: =i+1; end; сколько строк напечатает программа: var k,l: integer; begin k: =8; while k 0 do begin l: =10; while l 15 do begin writeln( мне нравится паскаль.

maxzaytsev5120 · Accepted Answer

Написано на языке python:

from math import sqrt as sqrt
x1, y1, x2, y2, x3, y3 = list(map(int,input().split()))
a = sqrt((x2-x1)**2 + (y2-y1)**2)
b = sqrt((x3-x2)**2 + (y3-y2)**2)
c = sqrt((x1-x3)**2 + (y1-y3)**2)
p = (a+b+c)/2
S = sqrt(p*(p-a)*(p-b)*(p-c))
R = round((a*b*c)/(4*S),3)
print(R)

Объяснения:
1) Задаём координаты (вводим 6 цифр через пробел)
2) Считаем длины сторон треугольника
3) Находим полупериметр
4) Находим площадь
5) Находим радиус описанной окружности и округляем его до 3 знаков после запятой(если не нужно округлять - оставьте только (a*b*c)/(4*S))
6) Выводим ответ

MOGZ ответил