Вводить с клавиатуры 3 числа. Найти максимальное и минимальное из них и вывести на экран. Выход из программы при равенстве этих чисел

@svchost · Регистрация: 17.05.2013

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста. Вводить с клавиатуры 3 числа. Найти максимальное и минимальное из них и вывести на экран. Выход из программы при равенстве этих чисел.

@Puporev · 17.05.2013, 11:19

Pascal

uses crt;
var a,b,c,mn,mx:integer;
begin
clrscr;
writeln('Вводите по 3 целых числа, окончание ввода все числа равны');
repeat
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if(a<>b) then
 begin
  if a>b then mx:=a else mx:=b;
  if c>mx then mx:=c;
  if a<b then mn:=a else mn:=b;
  if c<mn then mn:=c;
  writeln('Мин=',mn,' макс=',mx);
 end;
until(a=b)and(a=c);
write('Нажмите любую клавишу');
readkey
end.

@svchost · 17.05.2013, 11:23 **[ТС]**

Премного благодарен

@svchost 0 / 0 / 0 Регистрация: 17.05.2013 Сообщений: 9
		1
	Вводить с клавиатуры 3 числа. Найти максимальное и минимальное из них и вывести на экран. Выход из программы при равенстве этих чисел 17.05.2013, 10:50. Показов 21895. Ответов 2 Метки нет (Все метки) Помогите пожалуйста. Вводить с клавиатуры 3 числа. Найти максимальное и минимальное из них и вывести на экран. Выход из программы при равенстве этих чисел. 0

@svchost 0 / 0 / 0 Регистрация: 17.05.2013 Сообщений: 9
	17.05.2013, 11:23 [ТС]	3
	Премного благодарен 0

Опции темы

Вводить с клавиатуры 3 числа. Найти максимальное и минимальное из них и вывести на экран. Выход из программы при равенстве этих чисел

Решение