|
Вдруг кому-то понадобиться:
Код рабочей программы в MSB. Рассчёт суммы чётных и нечётных чисел из 10.
k=0'сумма чётных
s=0'сумма нечётных
For i=1 To 10
TextWindow.WriteLine("Введите "+i+" число ")
a[i]=TextWindow.ReadNumber()
remainder[i]=Math.Remainder(a[i],2)
If remainder[i]=0 then
k=k+a[i]
Else
s=s+a[i]
EndIf
EndFor
TextWindow.WriteLine("Cумма чётных= "+k)
TextWindow.WriteLine("Сумма нечётных="+s)
Я "Спасибо" говорю,а не тыкаю.
|