Question

Составить Блок - Схему, и написать программу. Даю 50 баллов

Answer 1

Ответ:

1.

var n1,n2,n3: integer;

begin

writeln('Введите n1,n2,n3: ');

readln(n1,n2,n3);

if (n2<n1) then swap(n2,n1);

if (n3<n1) then swap(n3,n1);

if (n3<n2) then swap(n3,n2);

writeln('n1,n2,n3 в возрастающем порядке: ',

n1,' ',n2,' ',n3);

end.

2.

var a,b,c: integer;

var s: real;

begin

writeln('Введите a,b,c: ');

readln(a,b,c);

s:=(a-b-c)/(sqrt(a*b*c));

writeln(s);

end.

3.

var a,b,c: integer;

var s: real;

begin

writeln('Введите a,b,c: ');

readln(a,b,c);

s:=(a+b+c)/3;

writeln('Среднее арифметическое: ',s);

end.

4.

var a,b: integer;

var s: real;

begin

writeln('Введите a,b: ');

readln(a,b);

if ((a>0) and (b>0)) then s:=a+b

else s:=a*a-b*b;

writeln(s);

end.