помогите решить задачки по Паскалю
"4":
Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования. Пример: Введите число: 100 сумма = 5050
"5":
Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.
Ответы
Ответ дал:
7
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад