Составьте программу на visual basic вводится некоторое трехзначное число x (пусть x=255) вывести на экран сколько число 5 в x.(с объяснениями) : )

191

427

Посмотреть ответы 2

Ответы на вопрос:

123arrem

Информатика

4,6(29 оценок)

Sub programma dim a as string, n as integer, i as integer a = inputbox ("vvedite chislo") ' вводим число, как строку n = 0 ' счетчик пятерок for i = 1 to len(a) ' цикл по всем знакам в строке if mid$(a, i, 1) = "5" then n = n + 1 ' если знак = 5, прибавляем счетчик next i msgbox (n) ' выводим счетчик на экран end sub