Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном случае: трегольник со сторонами a,b,c являеться равнобедренным. ( решить через файл)
Var f:text; a,b,c:real; begin assign(f,'text.txt'); reset(f); read(f,a); read(f,b); read(f,c); close(f); if (a=b) or (b=c) or (a=c) then writeln('True') else writeln('False'); end.
Значения в файле text.txt: 1 2 1 Пример вывода: True
Var
f:text;
a,b,c:real;
begin
assign(f,'text.txt');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
if (a=b) or (b=c) or (a=c) then writeln('True') else writeln('False');
end.
Значения в файле text.txt:
1 2 1
Пример вывода:
True