Консультация № 137001
15.05.2008, 21:11
0.00 руб.
0 2 2
вычислите сумму и произведение всех чисел, делящихся на 4 от 16 и до 100
прогу надо написать не таблицей, а в строчку

Обсуждение

Неизвестный
15.05.2008, 21:54
общий
это ответ
Здравствуйте, Saske!
код в приложении

> прогу надо написать не таблицей, а в строчку

эээ не совсем понял, если весь текст нужен в строку то просто замените абзацы на двоеточия

Приложение:
dim summa, proizv, i as integerfor i = 16 to 100 if i / 4 = int(i / 4) then summa = summa + i proizv = proizv * i end ifnext iprint summa, proizv
Неизвестный
16.05.2008, 14:47
общий
это ответ
Здравствуйте, Saske!
Dim summa, proizv, i As Integer
proizv = 1
For i = 16 To 100 Step 4
summa = summa + i
proizv = proizv * i
Next i
MsgBox summa & vbTab & proizv
Форма ответа