Написать программу, вычисляющую произведение целых чисел меньше 1000.

1

Ответы и объяснения

Лучший Ответ!
2013-02-24T14:40:09+00:00

do
dim Otvet
y = InputBox("Ваше число должно быть меньше 1000","Первое число","<Число>")
if y => 1000 then
msgbox "Ваше число больше 1000. Введите заново."
exit do
else
end if
x = InputBox("Ваше число должно быть меньше 1000","Второе число","<Число>")
if x => 1000 then
msgbox "Ваше число больше 1000. Введите заново."
exit do
else
end if
Otvet = y * x
msgbox ( Otvet )
exit do
loop

 

P.S. На платформе VBS