Var a,b:real;
begin
write('a, b: ');
readln(a,b);
writeln(a,' + ',b,' = ',a+b);
if a+b<1
then if a<b then a:=(a+b)/2 else b:=(a+b)/2
else if a<b then a:=a+b else b:=a+b;
writeln('a = ',a,' b = ',b);
end.

Пример:
a, b: -2.8 4.5
-2.8 + 4.5 = 1.7
a = 1.7 b = 4.5

0 0

4 года назад

В Microsoft Access создать баз на тему туристическая фирма

кокис

База данных. Показать пример? или что?

0 0

4 года назад

Pascal.Составьте программу замены местами в массиве B(N) первого положительного и минимального элементов. Спасибо заранее

Вся в догадках

Program gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]<min)then min:=b[i];
for i:=1 to n do
begin
if(b[i]=min)then b[i]:=t;
if(i=r)then b[i]:=min;
write(b[i],' ');
end;
end.

0 0

3 года назад

Помогите с решением, вычислил я значение функций, а что дальше делать я ума не приложу, будьте добры помочь

киреек алина [7]

Writeln (y);
readln;
END.

добавь это

0 0

4 года назад