Файл размером 1500 кбайт передается через некоторое соединение в течение 75 секунд.определите размер файла в (кбайт),который можно передать через это соедиинение за 50 сек.в ответе укажите одно число-размер файла в кбайт.единицы измерения писать не нужно решить
111
245
Ответы на вопрос:
Var a,b,c,p: real; begin write('a = '); read(a); write('b = '); read(b); write('c = '); read(c); if (a< b+c)and(b< a+c)and(c< a+b) then begin if (a=b)and(a< > c) then write('треугольник равнобедренный, ') else if (a=b)and(b=c) then write('треугольник равносторонний, ') else if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=b*b+a*a) then write('треугольник прямоульный, ') else write('треугольник никакой, '); p: =(a+b+c)/2; a: =sqrt(p*(p-a)*(p-b)*(p-c)); write('его площадь равна ',a); end else write('треугольник не существует') end.
Популярно: Информатика
-
alicekuznetsova21.05.2023 03:38
-
hvbdnnd27.12.2022 16:02
-
12dosbol03.01.2022 02:30
-
Ди123318.07.2022 14:18
-
vaniafc00709.10.2021 15:23
-
Elka2967731.01.2022 07:44
-
alex2007serg25.04.2020 01:05
-
Kristinkasssd00129.09.2020 03:10
-
Pizetiv4ik01.05.2021 01:45
-
мкм6ккмг02.04.2020 08:25