Составить программу, которая определяет максимальное из всех чисел, вводимых с клавиатуры - VB

Узнай цену своей работы

Формулировка задачи:

Помогите, пожалуйста, написать программу через "Do...While" Составить программу, которая определяет максимальное из всех чисел, вводимых с клавиатуры. Признаком завершения ввода чисел является введенное число 0. Заранее спасибо

Решение задачи: «Составить программу, которая определяет максимальное из всех чисел, вводимых с клавиатуры»

textual
Листинг программы
sub main
dim n&,max&
Do 
  n=inputbox("N=")
  if n>max then max=n
loop While n>0
msgbox "Max=" & max
end sub

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

6   голосов , оценка 3.833 из 5
Похожие ответы