Question

Это цикл for: 1)даны натуральные числа x и y.вычислить x*y,пользуясь только оперцией сложения. 2)даны натуральные числа x и y.вычислить x^y 3)дано натуральное число n. найти сумму s=1+1/2+1/3++1/n. 4)дано натуральное число n и число х.найти сумму s=(x+1)^2+(x+2)^2++(x+n)^2

Answer 1

1- program odin;
var x, y, i,p:integer;
begin
read(x,y);
p:=0;
for i:=1 to y do
p:=p+x;
writeln(p);
end.

2-program dva;
var x,y,r:real;
begin
read(x,y);
r:=x/y;
writeln(r);
end. 

3-program tri;
var n,i,b:integer; s:real;
begin
read(n);
b:=1;
for i:=1 to n do
s:=s+(b/i);
writeln(s);
end.