Найти сумму всех чисел в интервале от 1 до 100, которые делятся без остатка на "a". Число "a" вводится с клавиатуры.

Question

Да, программирование, мшыгфд ифышс

Правильно?

Sub prog() 
Dim a, x, s1, s2 As Integer 
a = Val(Imputbox("Введите a")) 
x = Val(Imputbox("Введите число от 1 до 100")) 
If a Mod 2 = 0 And x Mod a = 0 Then 
s = (2 + 100) / 2 * 50 
MsgBox ("Сумма всех чисел равна S1" + Str) 
End If 
If a Mod 2 = 0 And x Mod a > 0 Or x Mod a < 0 Then 
s = (1 + 99) / 2 * 50 
MsgBox ("Сумма всех чисел равна S2" + Str) 
End If 
End Sub

Ольга Онойко · Accepted Answer

если вопрос по програмированию, то 
х: =0 
ввод а (readln а) 
начало цикла 
счётчик у от 1 до 100 
если у/а остаток=0 (if у/а mod 0 ) 
то х: =х+у 
end. 
вывод х (writeln) 
(отдельные команды приведены для языка паскаль) 
 
бэйсиом я не увлекался но что то здесь явно много лишнего.. . 
Sub prog() 
Dim a, x, s1, s2 As Integer 
a = Val(Imputbox("Введите a")) 
S:=0 
 
начать цикл 
for х: =1 to 100 do 
If x Mod a = 0 Then 
s:= s+x 
закончить цикл 
 
MsgBox ("Сумма всех чисел равна S) 
End for 
End Sub