QBasic. Даны 3 числа. Найти минимальное число. - Помощь студентам

Vlad0697 · 16.05.2014, 11:18

Даны 3 числа. Найти минимальное число.

Serge_Bliznykov · 16.05.2014, 11:20

Код:

minimal = A
if B<minimal then minimal = B
if C<minimal then minimal = C
PRINT "MIN = " ; minimal

16.05.2014, 11:18	#1
Vlad0697 Регистрация: 14.05.2014 Сообщений: 6	QBasic. Даны 3 числа. Найти минимальное число. Даны 3 числа. Найти минимальное число.

16.05.2014, 11:20	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	Код: `minimal = A if B<minimal then minimal = B if C<minimal then minimal = C PRINT "MIN = " ; minimal`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача на С++: Даны вещественные числа x, y. Составить программу с функцией, которая возвращает минимальное и максимальное из x,y	proghelpme	Помощь студентам	4	26.02.2014 09:07
Даны натуральное число n, действительные числа a, h, b, d0,..., dn	yzen	Помощь студентам	1	18.11.2012 10:04
В последовательности определить сумму чисел,их количество,максимальное и минимальное число с их порядковыми номерами (QBasic)	Лена1308	Помощь студентам	3	14.12.2011 22:20
В последовательности определить сумму чисел,их количество,максимальное и минимальное число с их порядковыми номерами (QBasic)	Лена1308	Помощь студентам	0	01.12.2011 21:19
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа	Woland-itn	Паскаль, Turbo Pascal, PascalABC.NET	3	23.03.2008 21:49