21 Февраль 2010

Вывести наименьшее из трех чисел

Задачи |  Таги: , ,

Вывести наименьшее из трех чисел

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)

If a < b Then min = a Else min = b
If c < min Then min = c

Label1.Caption = min

Запись опубликована on 21.02.2010 at 15:39 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.