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

Question

Информатика

Витяня

26 мая, 18:01

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

+3

Ответы (2)

Знаете ответ на вопрос?

Артемонка · Answer 1

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.

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

Гошуня · Answer 2

program min;

uses crt;

var a, b, c:integer;

begin

read (a, b, c) ;

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

end.