Question

a) Elaborati in Pascal un program care va calcula produsul a trei numere
b) Elaborati in Pascal un program care va calcula diferenta a patru numere

Answer 1

A)
Var Num1, Num2, Num 3, Prod : Integer;
 Begin  Write('Introduceti nr. 1:');
Readln(Num1);
 Writeln('Introduceti numarul 2:');
Readln(Num2);
 Writeln('Introduceti numarul 3:');
Readln(Num3); Prod:= Num1 * Num2*Num3;
 Writeln(Prod);
 Readln;
 End.

B)
Var Num1, Num2, Num 3,Num4,Dif: Integer;
 Begin  Write('Introduceti nr. 1:');
Readln(Num1);
 Writeln('Introduceti numarul 2:');
Readln(Num2);
 Writeln('Introduceti numarul 3:');
Readln(Num3);
 Writeln('Introduceti numarul 4:');
Readln(Num3);
Dif := Num1-Num2-Num3-Num4;
 Writeln(Dif);
 Readln;
 End.