1)
Begin
var (a,b,c,d):=ReadInteger4();
Writeln(((a+b)*c)/d);
end.
2)
var a,b:real;
Readln(a,b);
a:=a*b;
Readln(b);
a:=a+b;
a:=a-b;
Writeln(a);
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
1)
Begin
var (a,b,c,d):=ReadInteger4();
Writeln(((a+b)*c)/d);
end.
2)
Begin
var a,b:real;
Readln(a,b);
a:=a*b;
Readln(b);
a:=a+b;
Readln(b);
a:=a-b;
Writeln(a);
end.