Question

Rapid, cine o rezolva ii dau maximul de puncte +coroana , rapid va rog frumos și nu in bătaie de joc, este la tic , o fisa de lucru
Cu rezolvări complete nu răspunsuri la nimereala

Answer 1

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