Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном случае: трегольник со сторонами a,b,c являеться равнобедренным. ( решить через файл)
//Pascal ABC.NET v3.1 сборка 1172
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
