👤
a fost răspuns

Am nevoie și eu de ajutor la ex 5, dacă se poate sa fie ca pe caiet, cum ar fi : Read, Write, /... /, atribuire și ce mai trebuie sau mai bine în Turbo Pascal. Dacă este bun răspunsul dau coroana. Pls!



Am Nevoie Și Eu De Ajutor La Ex 5 Dacă Se Poate Sa Fie Ca Pe Caiet Cum Ar Fi Read Write Atribuire Și Ce Mai Trebuie Sau Mai Bine În Turbo Pascal Dacă Este Bun R class=

Răspuns :

Grigore2018

var

 a, b, c: integer;

begin

 write('Varsta Ionel:');

 readln(a);

 write('Varsta Mihai:');

 readln(b);

 if a > b then  

   writeln('Ionel este mai mare cu ', a - b, ' ani')

 else  

   writeln('Mihai este mai mare ', b - a, ' ani');    

end.

Alte intrebari