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

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

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

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

textual
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.

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


СОХРАНИТЬ ССЫЛКУ