Question

Sa scriu un program pascal , in care sunt 3 cani.
1 cu ceai , 2 cafea , 3 goala.
Trebuie sa scrim un program in care cana cu ceai sa se aflea in ceia cu cafea .
mai pe scurt sa se schimbe cu locurile.

Answer 1

Răspuns:

program interschimbareContinut;

var ceai, cafea, goala:integer;

begin

 write('introdu continut pentru cana cu ceai: '); read(ceai);

 write('introdu continut pentru cana cu cafea: '); read(cafea);

 goala:=ceai; {am turnat ceaiul in cana goala}

 ceai:=cafea; {am turnat cafea in cana de ceai}

 cafea:=goala; {am turnat ceaiul din cana goala in cana de cafea}

 writeln('Rezultatele interschimarii: ');

 writeln('continutul din cana de ceai: ',ceai);

 writeln('continutul din cana de cafea: ',cafea);

end.

Explicație: