Составить программу вычесления суммысоставить программу вычесления суммы ряда s=4 в 1 степени+4 в 3 степени + 4 в 5 степени....+4 в 15 степени
Составить программу вычесления суммысоставить программу вычесления суммы ряда s=4 в 1 степени+4 в 3 степени + 4 в 5 степени....+4 в 15 степени
Гость
Ответ(ы) на вопрос:
Гостьvar
k,j,i,s:integer;
begin
k:=1;
for i:=1 to 7 do
for j:=1 to 7 do
s:=s+4*k;
end;
k:=k+16;
end;
end.
Сам не компилировал, надеюсь ошибок нет, если есть то сори, просто разберись в цикле и сам всё поймешь.
Гостьпаскаль а не пасхаль если што
Не нашли ответ?
Похожие вопросы