Если файл типизированный, то один из вариантов решения задачи такой:
var f: file of real; a,b,r:real;
begin
AssignFile(f,'myFile.dat');
Reset(f);
Read(f,a);
while not eof(f) do read(f,b);
r:=a-b;
//здесь нужно вывести r
Close(f);
<span>end;
Вывод r зависит от того, какое программу Вы делаете - консольное или Windows-приложение.</span>
(A&C) & (BvC)=1
равенство выполниться при A=1, B=0, C=1
<span>Я была в лесу летом. Там я собирала грибы. Было много деревьев и травы,кустов. В конце лета листья начинали опадать. Было очень тихо,слышно только пение птиц. Слышно как шуршит под ногами трава и ветки. Воздух свежий. В лесу очень хорошо отдохнуть,на природе!</span>
Т.к х не равен у и х<у, у=у-х=75-55=20
Ответ-20
Var a,b:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if b=0
then begin
write('min(',a,',',b,')=');
if a<b then writeln(a) else writeln(b);
end
else if b<0
then begin
write('max(',a,',',b,')=');
if a>b then writeln(a) else writeln(b);
end
else begin
a:=a*0.8;
b:=b*0.8;
writeln('a = ',a,' b = ',b);
end;
end.
Пример:
a = 5
b = -8
max(5,-8)=5