Вводятся три числа A, B, C. Выведите все целые числа от наименьшего из них до наибольшего

@idkwtfisthis · Регистрация: 17.05.2017

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

Вводятся три числа A, B, C. Выведите все целые числа от наименьшего из них до наибольшего.
Сделать программу только без команд Println , x.Where , y.Where и прочего.

@Hitoku · 18.05.2017, 00:58

Pascal

function MinABC(a, b, c: integer): integer:=Min(a, Min(b, c));
function MaxABC(a, b, c: integer): integer:=Max(a, Max(b, c));
 
var a, b, c: integer;
begin
  write('a,b,c = '); readln(a, b, c);
  for var i := MinABC(a, b, c) to MaxABC(a, b, c) do write(i, ' ');
end.

@idkwtfisthis 0 / 0 / 0 Регистрация: 17.05.2017 Сообщений: 2
		1
	Вводятся три числа A, B, C. Выведите все целые числа от наименьшего из них до наибольшего 17.05.2017, 23:26. Показов 2801. Ответов 1 Метки нет (Все метки) Вводятся три числа A, B, C. Выведите все целые числа от наименьшего из них до наибольшего. Сделать программу только без команд Println , x.Where , y.Where и прочего. 0

Опции темы

Вводятся три числа A, B, C. Выведите все целые числа от наименьшего из них до наибольшего

Решение