Составить програму

@albina@s · Регистрация: 21.10.2013

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

Найти среди чисел a, b i c меньшее и заменить его на квадрат наибольшего из них.

@Virts · 21.10.2013, 19:39

Вот самое банальное решение (думаю, такое вам и нужно)

Pascal

Program MinMax;
Var a,b,c,min,max:integer;
Begin
ReadLn(a,b,c);
if a>b then max:=a
else max:=b;
if max>c then max:=max
else max:=c;
if a<b then min:=a
else min:=b;
if min<c then min:=min
else min:=c;
WriteLn(sqr(max));
ReadLn
End.

Только я не доработал вывод, т.к не совсем понял требования. Нужно вывести все 3 числа и меньшее из них заменить квадратом максимального? Если да, то можете сами дописать используя оператор условия. Мой вариант просто выводит квадрат максимального.

@albina@s · 21.10.2013, 19:42 **[ТС]**

да, спасибо большое!))

@Virts · 21.10.2013, 19:47

Для этого есть кнопочка снизу, не объязательно писать

Был рад помочь

@fedot199614 · 21.10.2013, 19:49

помоги мне вот Нарисовать квадрат с заданной стороной

Добавлено через 10 секунд
плизик

@albina@s 0 / 0 / 0 Регистрация: 21.10.2013 Сообщений: 6
		1
	Составить програму 21.10.2013, 19:26. Показов 448. Ответов 4 Метки нет (Все метки) Найти среди чисел a, b i c меньшее и заменить его на квадрат наибольшего из них. 0

@albina@s 0 / 0 / 0 Регистрация: 21.10.2013 Сообщений: 6
	21.10.2013, 19:42 [ТС]	3
	да, спасибо большое!)) 0

@Virts 26 / 26 / 22 Регистрация: 08.06.2013 Сообщений: 106
	21.10.2013, 19:47	4
	Для этого есть кнопочка снизу, не объязательно писать Был рад помочь 1

@fedot199614 1 / 1 / 0 Регистрация: 20.10.2012 Сообщений: 56
	21.10.2013, 19:49	5
	помоги мне вот Нарисовать квадрат с заданной стороной Добавлено через 10 секунд плизик 0

Опции темы