помогите решить задачки по Паскалю

"4":

Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования. Пример: Введите число: 100 сумма = 5050

"5":

Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую - 1 зерно, на 2-ую - 2 зерна, на 3-ю - 4 зерна, ...) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.

Question

Таюня

7 мая, 20:21

+3

Ответы (1)

Знаете ответ?

Мирра · Answer 1

1)

program z1;

uses crt;

var n, i, s:integer;

begin

writeln ('введите n') ;

readln (n) ;

s:=0;

for i:=1 to n do

s:=s+i;

writeln (s) ;

end.