ЛУВР-чётное: АЛУВР ~ БМФГС.
БМФГС -нечётное: БМФГ ~ ВНХД.
<em><u>Блок-схема во вложении.</u></em>
var
x,y,c:double;
begin
Write('x='); Read(x);
Write('y='); Read(y);
if x=y then c:=sqr(x+y)+sin(x)
else
if (x-y)=3 then c:=(x+y)*sqr(x+y)+cos(x)
else c:=x+y+tan(x);
Write('c=',c)
end.
<em><u>Тестовое решение:</u></em>
x=0.563
y=-1.514
c=-0.319863379954563
program zakonnietona3;
uses crt;
var F1,F2: real;
begin
cls;
writeln('Третий закон Ньютона-тела действуют друг на друга с силами направленными ');
writeln('вдоль одной прямой,');
writeln(' равными по числовому значению и противоположны по направлению');
write('Введите первую силу');
read(F1);
F2:=-F1;
write('Вторая сила F2=',F2);
end.
Const n=10;
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
writeln('min = ',min);
for i:=1 to n do
if a[i]=min then a[i]:=99;
writeln('Полученный массив:');
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
Исходный массив:
5 13 9 13 19 3 20 5 9 3
min = 3
Полученный массив:
5 13 9 13 19 99 20 5 9 99