👤
a fost răspuns

UNDEE AM GRESIT AJUTORR
program cartizan;
procedure cartizan(x,y:real);
var x,y:real;
writeln('x='); readln('X'; writeln('y='); readln('y');
if ('x>0')and ('y>0') the writeln ('cartizanul 1');
if ('x<0')and ('y>0')the writeln ('cartizanul 2');
if ('X<0')and ('y<0') the writeln ('cartizanul 3');
if ('X>0')and ('y<0')the writeln('cartizanul 4');
end;
begin
writeln('dati lui si la');
readln('x,y');
cartizan('x,y');
end.

Răspuns :

FACEBOOKAUGUSTIZE
Program cartizan;
var
x,y:real;
procedure cartizan(x,y:real);
begin
Writeln('x=');readln(x);Writeln('y=');readln(y);
if (x>0) and (x>0) then Writeln('Cartizan1');
if (x<0) and (y>0) then Writeln('Carizan 2');
if (x<0) and (y<0) then Writeln('carizan 3');
if (x>0) and (y<0) then Writeln('cartizan 4');
end;
begin
Writeln('dati lui si la');
readln(x,y);
cartizan(x,y);
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!


Ze Questions: Alte intrebari