Размещено 4 года назад по предмету
Информатика
от FID1371
program zadacha_8;
uses crt;
var
min,a,b,c:integer;
begin
clrscr;
writeln('введите число №1 ');
readln(a);
writeln('введите число №2 ');
readln(b);
writeln('введите число №3 ');
readln(c);
if (a b) and (b b) and (b > c) then
min:=c;
writeln('min=',min);
readln;
min:=a*b*c; {присваиваю min произведение трех чисел}
writeln('min=',min);
readln;
end.