Прабабушка и прадедушка, ведь мама Димы и мама Саши родные сестры
Заводишь переменную, куда будешь забивать сумму, затем в цикле N раз считываешь число, умножаешь его на себя и прибавляешь к сумме (не забудь обнулить переменную для суммы в начале)
1)
var
n: integer;
y, x: real;
begin
readln(x, n);
y := 1;
while n > 0 do
begin
y := y * x;
n := n - 1;
end;
writeln(y);
end.
2)
var
a, b, c, t, i: integer;
begin
readln(a, b, c);
Writeln(0:2, ': a=', a, ' b=', b, ' c=', c);
for i := 1 to 10 do
begin
t := a;
a := b;
b := c;
c := t;
Writeln(i:2, ': ', a, ' ', b, ' ', c);
end;
end.
260
В диапазоне >300 и <=800 при количестве покупок меньше 50 - 620-190=430
В диапазоне >300 и <=800: количество покупок от 20 до 50 - 170, а меньше 50 - 430. Значит, меньше 20 покупок - 430-170=260.