25.03.2013, 21:50 | #1 (permalink) |
Member
Регистрация: 03.03.2013
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Даны целые числа K и L
|
25.03.2013, 21:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пока люди думают, что вам ответить вы можете ознакомиться с подобными темами Даны три положительных вещественных числа x, y, z Найти площадь выпуклого многоугольника, если даны координаты вершин многоугольника |
26.03.2013, 15:34 | #2 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Код:
Private Sub Command1_Click() 'Здравствуйте,помогите пожалуйста написать программку на Visual Basice, 'Даны целые числа K и L. Если числа не равны, 'то заменить меньшее из них остатком от деления большего на меньшее, 'а если равны, то заменить оба числа нулями. Dim K As Integer Dim L As Integer K = 9 L = 6 If K > L Then L = K Mod L ElseIf L > K Then K = L Mod K Else L = 0 K = 0 End If Label1.Caption = L Label2.Caption = K End Sub |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|