Question

Составить программу на языке паскаль: даны 3 числа а, б и с. Необходимо переменной х прибавить значение наименьшей из них.

Answer 1

var a,b,c,x: integer;

begin

x:=10;

writeln('Введите значение a: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

writeln('Введите значение c: ');

readln(c);

if (a<c) and (a<b) then writeln('Наименьшее число:',a,'   ',a,' + 10 = ',x+a);

if (b<c) and (b<a) then writeln('Наименьшее число:',b,'   ',b,' + 10 = ',x+b);

if (c<a) and (c<b) then writeln('Наименьшее число:',c,'   ',c,' + 10 = ',x+c);

end.