Question

1)найти произведение из диапазона от A до B с шагом h
2)для заданого натурального n и действительного x подсчитайте сумму S=1^2+2^2+3^2+....+n^2
только пожалуйста с использованием while do или repeat until

Answer 1

begin
var a:= readinteger('Введите А :');
var b:= readinteger('Введите В :');
var h:= readinteger('Введите шаг h :');
var mul: longint = 1;
for var i:= a to b do
if (i mod h = 0) then
mul:=i*mul;
write(mul);
end.

begin
var n:= readreal('Введите n:');
var S: real = 0;
repeat
if n<0 then
break;
S:=S+power(n,2);
n:=n-1;
until (n<0);
write(S);
end.