Поиск счастливых чисел - 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
                        

Оцени полезность:

9 голосов , оценка 4.222 из 5

Похожие ответы