Предмет: Информатика, автор: DipperPines2134

Составьте программу про блок схеме (PascalABC)

Приложения:

Ответы

Автор ответа: MrMiner1
1

Program n_1;

var x, y, z, min: double;

begin

   read(x, y, z);

   if (x<=y) and (x<=z) then min:=x;

   if (y<=x) and (y<=z) then min:=y;

   if (z<=x) and (z<=y) then min:=z;

   writeln(min:0:5);

end.

Если элементы 100% целочисленные, то double змени на integer, а также строку вывода замени на writeln(min);

Похожие вопросы