Y=IF(x<=1;2*e^(x-1);IF(x<3;(4-x)/2;1/(x-1)*(x-2)))
фактически тут два вложеных IF
если x<=1 то у = 2*e^(x-1)
иначе если x<3 то у = (4-x)/2
иначе у = 1/(x-1)*(x-2)
понятно?
Var
a, b, c: integer;
begin
readln(a);
readln(b);
c := 5*a-abs(4*a-2*b);
writeln(c);
end.
Или через случайные числа:
var
a, b, c: integer;
begin
randomize;
a := random(50);
b := random(50);
c := 5*a-abs(4*a-2*b);
writeln(c);
end.
//Код Pascal:
Var
f:text;
a,b,c,D:real;
Begin
Assign(f,'kvur.txt');
Reset(f);
ReadLn(f,a,b,c);
Close(f);
Assign(f,'korni.txt');
Rewrite(f);
D:=b*b-4*a*c;
c:=(-b-Sqrt(D))/(2*a);
a:=(-b+Sqrt(D))/(2*a);
if D >= 0 then
Begin
WriteLn(c,' ',a);
WriteLn(f,c,' ',a)
End
else
Begin
WriteLn('Действительных корней нет.');
WriteLn(f,'Действительных корней нет.')
End;
Close(f);
ReadLn;
End.
Для корректной работы программы файлы должны находиться в одной папке с программой.