Найдите значение b после выполнения алгоритма - PascalABC.NET
Формулировка задачи:
написать программу
Решение задачи: «Найдите значение b после выполнения алгоритма»
textual
Листинг программы
var a,b:integer;
begin
a:=256;
b:=0;
while a>1 do
begin
a:=a div 2;
b:=b+a;
end;
write('b=',b)
end.
Объяснение кода листинга программы
- Объявлены две переменные a и b типа integer (целое число).
- Переменная a инициализируется значением 256.
- Переменная b инициализируется значением 0.
- Запускается цикл while, который будет выполняться до тех пор, пока значение переменной a больше 1.
- Внутри цикла значение переменной a делится на 2 и присваивается обратно переменной a.
- К значению переменной b прибавляется значение переменной a.
- После выхода из цикла, значение переменной b выводится на экран с помощью функции write, при этом значение переменной b выделяется в кавычках.