Написать простую программу (паскаль).

Дано три числа a, b, c. Найти среди них минимальное.

Question

Информатика

Ареф

23 ноября, 00:18

Написать простую программу (паскаль).

Дано три числа a, b, c. Найти среди них минимальное.

+4

Ответы (2)

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

Илюша · Answer 1

Var a:array [1 ... 3] of integer;

a, b, c, i, min : integer;

begin

readln (a, b, c) ;

for i:=1 to 3 do readln (a[i]) ;

min:=a[1];

for i:=1 to 3 do

if a[i]writeln (min) ;

end.

Тихон · Answer 2

Program z1;

uses crt;

var a, b, c, min:integer;

begin

writeln ('vvedite a, b, c') ;

readln (a, b, c) ;

if a < b then min:=a else min:=b;

if min>c then min:=c;

writeln ('minimal: ', min) ;

end.

Написать простую программу (паскаль).Дано три числа a, b, c. Найти среди них минимальное.

Написать простую программу (паскаль).

Дано три числа a, b, c. Найти среди них минимальное.