Найти наименьшее из 3 чисел по Паскалю

Question

Информатика

Данил

18 января, 08:15

Найти наименьшее из 3 чисел по Паскалю

+2

Ответы (2)

Знаешь ответ?

Лия · Answer 1

program min;

uses crt;

var a, b, c:integer;

begin

read (a, b, c);

if (a
else if b
else writeln (c);

end.

Мелания · Answer 2

Var i, k, min:integer;

begin

readln (k);

min:=k;

for i:=1 to 2 do begin

readln (k);

if k>=min then min:=k;

end;

writeln (min);

end.

думаю, объяснять не нужно