Составьте програму, которая запрашивает 3 числа и определяет наименьшее из них.
Составьте програму, которая запрашивает 3 числа и определяет наименьшее из них.
Ответ(ы) на вопрос:
Гость
program smallest;
var
a,b,c:integer;
begin
write('введите а: ');
readln(a);
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
if (a - b) > 0 then
begin
if (a - c) > 0 then
writeln('a - наибольшее!');
end;
if (b - a) > 0 then
begin
if (b - c) > 0 then
writeln('b - наибольшее!');
end;
if (c - a) > 0 then
begin
if (c - b) > 0 then
writeln('c - наибольшее!');
end;
end.
var
a,b,c:integer;
begin
write('введите а: ');
readln(a);
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
if (a - b) > 0 then
begin
if (a - c) > 0 then
writeln('a - наибольшее!');
end;
if (b - a) > 0 then
begin
if (b - c) > 0 then
writeln('b - наибольшее!');
end;
if (c - a) > 0 then
begin
if (c - b) > 0 then
writeln('c - наибольшее!');
end;
end.
Не нашли ответ?
Похожие вопросы