Question

Vreau si eu un algoritm cu cerinta si rezolvare despre o problema aplicata in viata de zi cu zi (de axemplu eu ma gandesc la un numar intre 1 si 100, spune in cati pasi il ghicesti)

Answer 1

var 
 
 n,n1:integer;
 
begin

 writeln('Ma gindesc la un numar, de la 1 pina la 100, iar tu incearca s-al ghicesti');

 n:=random(100);
 
 
 while n<>n1 do 
  begin
  
  writeln;
  write('Numarul tau: ');
  read(n1);
  
  writeln;
  if n1>n then writeln('Numarul tau e mai mare');
  if n1<n then writeln('Numarul tau e mai mic');
  
  end;
  
  Writeln('Ai dreptate, ma gindeam la numarul ',n);

end.