Написать простую программу(паскаль).
Дано три числа a, b, c .Найти среди них минимальное.
Дано три числа a, b, c .Найти среди них минимальное.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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,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.