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

Question

Информатика

Симон

21 ноября, 20:44

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

+1

Ответы (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.

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