Составить программу на языке Pascal. Дано: а1, а2, а3, - производное. Найти: min
Answers & Comments
NameOff
Program bit; var m,a1,a2,a3: integer; begin writeln('введите три числа'); readln(a1,a2,a3); if (a1<a2) and (a1<a3) then m:=a1; if (a2<a1) and (a2<a3) then m:=a2; if (a3<a1) and (a3<a2) then m:=a3; if (a1=a2) and (a1=a3) then writeln('они равны') else writeln('меньшее из трёх ',m); end.
Answers & Comments
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
end.
Verified answer
Var a1, a2, a3, min : integer;begin
readln(a1, a2, a3);
min := a1;
if min > a2 then min := a2;
if min > a3 then min := a3;
writeln(min);
end.