Пример 1. Даны три числа a,b,c. Находятся суммы всех возможных пар этих чисел: a+b, a+c, b+c. Вывести наименьшую получившуюся сумму. var a,b,c,S1,S2,S3:integer; f1:text; begin assign(f1,'2.txt'); reset (f1); read(f1,a); read(f1,b); read(f1,c); S1:=a*a+b*b; S2:=a*a+c*c; S3:=b*b+c*c; if (s1 if (S2 if (S3 close (f1); end. Входной файлСкачать [8 b] (cкачиваний: 1) ПрограммаСкачать [326 b] (cкачиваний: 2)