1. Задать значения длин сторон треугольника a,b,c
2. Если (a+b>c) И (a+c>b) И (b+c>a), то треугольник построить можно,
иначе треугольник построить нельзя.
3. Конец алгоритма
Program proga;
var str1,str2,str3:string;
input:Text;
begin
Assign(input,'file.txt');
reset(input);
readln(input,str1);
readln(input,str2);
readln(input,str3);
if(length(str1)>length(str3)and length(str3)) then
writeln('1 строка самая длинная');
else if length(str2)>length(str3) and length(str1) then
writeln('2 строка самая длинная');
else if length(str3)>length(str1) and length(str2) then
writeln('3 строка самая длинная');
close(input);
end.
P.S файл со строками надо предварительно создать в папке с Exe файлом программы
а) var Pi,R:Real
б) var price_notebook,price_cover,value:Integer
в) var A,B:Integer
г) var A,B,C:Integer
<span>12 10 – 5 7 + * 7 – 2 * =
</span><span>2 5 7 + * 7 – 2 * =
</span>2 12 * 7 – 2 * =
24 7 -2 * =
17 2 * =
34