1) Найдите сумму чисел из диапазона от А до В с шагом 3 2) Для заданного натурального n подсчитать сумму S = 1^2+2^2+3^2 + ... + n^2

1)

program zz1;

var a, b, r, i:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

i:=a;

while a < = b do

begin

r:=r + a; / / вычисляем сумму чисел от а до b по формуле

a:=a + 3;

end;

write (' сумма чисел от ', i,' до ', b,' = ', r); / /выводим ответ

end.

2)

program zz1;

var n, r, i:integer; / / задаем переменные целого типа

begin

write (' введите число n '); / / вводим с клавиатуры первое число

read (n);

for i:=1 to n do

r:=r + i*i; / / вычисляем сумму квадратов чисел

write (' сумма чисел от 1 до n = ', r); / /выводим ответ

end.