Составьте программу вычисления 1+2+4+8+...+2(в 10 степени) - Free Pascal
Формулировка задачи:
Составьте программу вычисления 1+2+4+8+...+2(в 10 степени)
Решение задачи: «Составьте программу вычисления 1+2+4+8+...+2(в 10 степени)»
textual
Листинг программы
uses crt;
var i,a,s:integer;
begin
clrscr;
s:=1;
a:=1;
for i:=1 to 10 do
begin
a:=a*2;
s:=s+a;
end;
write('S=',s);
readln
end.
Объяснение кода листинга программы
- Используется модуль CRT (используется для ввода/вывода данных).
- Объявлены три переменные: i, a, s (для хранения значения счетчика, значения произведения и суммы соответственно).
- Переменная i инициализируется значением 1.
- Переменная a инициализируется значением 1.
- Запускается цикл for от 1 до 10.
- Внутри цикла значение переменной a умножается на 2.
- Результат умножения добавляется к переменной s.
- После завершения цикла выводится значение переменной s.
- Программа ожидает ввода данных с помощью функции readln.