Поиск счастливых чисел - VB
Формулировка задачи:
Четырехзначное число называют счастливым если сумма первых двух его цифр равна сумме двух последних ваша программа должна считать четырехзначное число и определять,счастливо ли оно. (Visual Basic)
Решение задачи: «Поиск счастливых чисел»
textual
Листинг программы
Dim i as integer; Dim s as string; вводим i s=CStr(i); if CInt(mid(s,1,1))+CInt(mid(s,2,1)) = CInt(mid(s,3,1))+CInt(mid(s,4,1)) then print "Счастливо" else print "Неа" end if