По представленной блок-схеме составить программу и получите результат ее выполнения Изображения - QBasic

По представленной блок-схеме составить программу и получите результат ее выполнения Изображения

Листинг программы

CLS
 
S = 0
K = 0
A = 50
 
DO
   S = S + A
   K = K + 5
   A = A + 1
LOOP UNTIL A > 150
 
SR = 2 * S
PRINT "SR ="; SR
PRINT "K ="; K
END

Объяснение кода листинга программы

CLS - очистка экрана
S = 0 - присваивание переменной S значение 0
K = 0 - присваивание переменной K значение 0
A = 50 - присваивание переменной A значение 50
DO - начало цикла
S = S + A - присваивание переменной S значение суммы S и A
K = K + 5 - присваивание переменной K значение суммы K и 5
A = A + 1 - присваивание переменной A значение суммы A и 1
LOOP UNTIL A > 150 - продолжение цикла до тех пор, пока значение переменной A не станет больше 150
SR = 2 * S - присваивание переменной SR значение двойного значения переменной S
PRINT SR =; SR - вывод на экран строки SR =, за которой следует значение переменной SR
PRINT K =; K - вывод на экран строки K =, за которой следует значение переменной K
END - конец программы