Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.