Răspuns:
Ex. 1
Program Minim;
var a,b,c: Real;
begin
write( 'introduceti numerele: ' );
readln(a,b);
c:= ( a + b - abs(a - b)) / 2;
writeln('Minimul este' , c:1:0);
end.
Ex. 2
Program P;
var a,b,c: Integer;
begin
write( 'Introduceti numerele: ');
readln(a,b);
if ( a mod 10 = 5) or ( a mod 10 = 0) then
c:= a * b
else
c:= a + b;
if ( b mod 10 = 5) or ( b mod 10 = 0) then
c:= a * b;
else
c:= a + b;
writeln(c);
end.
Ex. 3
Program Minim;
var a, b, c, d: Real;
begin
writeln( 'Introduceti numerele: ' );
readln(a,b,c);
d:= ( a + b - abs( a - b)) / 2;
writeln( 'Minimul este' , d:1:0);
end.
Ex. 4
Program Triunghi;
var a,b,c: Integer;
begin
readln(a,b,c);
if a + b > c then
writeln( 'Da')
else
writeln( 'Nu');
end.
Explicație:
ex 5 mii lene sal fac
