Question

Решите на листочке, пожалуйста, от этого зависит поступление

Answer 1

Вторая задача на цикл с параметром
var s,k:integer;
begin
s:=0;
for k:=1 to 5 do
s:=s+2*k;
writeln ('сумма =', s);
end.
 Первая задача нужна ?