Question

Buna ziua ! DAU 50 DE PUNCTE Cine imi poate da algoritmul in PASCAL la problemele din imagine ? VA ROG FRUMOS ! O zi buna si multumesc anticipat ! ​

Answer 1

Răspuns:

program ex13;

var x,y,r:integer;

begin

 write('x='); read(x);

 write('y='); read(y);

 if x=y then writeln(0)

 else

    if x<y then writeln(1)

    else writeln(2);

end.

Explicație:

program ex14;

var c:char;

begin

 write('caracter='); read(c);

 case c of

    'A'..'Z': writeln('Litera majuscula');

    'a'..'z': writeln('Litera minuscula');

    '0'..'9': writeln('cifra');

    else writeln('caracter special');

 end;

end.