👤
a fost răspuns

Problema 3 din imagine, Pascal urgent

Problema 3 Din Imagine Pascal Urgent class=

Răspuns :

program exProcedure;
procedure findMax(x, y : integer; var m: integer); 
var a, b, max: integer;
begin 
  if x > 3*y then     
      m := x 
else     
m :=3*y;end;
begin 
 writeln(' Introduceti numerele naturale a si b: '); 
  readln( a, b); 
  findMax(a, b, max);  
 writeln(' Maximum: ', max);
end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari