Найти минимальное из трех чисел - Turbo Pascal (28944)

Формулировка задачи:

Заданы три числа, надо найти минимальное число. Составить программу для вычисления периметра 10 прямоугольников.


textual

Код к задаче: «Найти минимальное из трех чисел - Turbo Pascal (28944)»

var
a,b,c,min:integer;
begin
write('a=');
read(a);
writeln;
write('b=');
read(b);
writeln;
write('c=');
read(c);
writeln;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min = ', min);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.214 из 5

Источник
Похожие ответы