Question

Написать программу для вычисления значения функции F(x) с использованием операторов: For…; While…do; Repeat…until. Значение x задать произвольно.
Написать блок-схему и Паскаль

Answer 1

Ответ:Program few2;

Uses crt;

Var a, b, y, min: integer;

Begin

ClrScr;

Writeln('y:= min+ 2* min+ b');

Write('Значение a: ');

Readln(a);

Write('Значение b: ');

Readln(b);

If a>b then

min:=a;

If a<b then

min:=b;

y:= min+ 2* min+ b;

Begin

If a=b then

Writeln('Невозможно найти значение...')

else

Begin

Writeln('min= ', min);

Writeln('y= ', min, '+ 2* ', min, '+ ', b);

Writeln('Y= ', y);

End;

End;

Readln;

End.

Объяснение: