Вычислить сумму

@Xait · Регистрация: 04.11.2017

вычислить (a - b)^2 где, a i если i - нечетное, i/2 в противном случае, b i^2 i - нечетное i^3 в противном случае

@Puporev · 26.11.2017, 21:23

Pascal

var a,b,i,s:integer;//если Турбо Паскаль то longint
begin
s:=0;
for i:=1 to 30 do
 begin
  if odd(i)then
    begin
      a:=i;
      b:=i*i;
    end
  else
   begin
    a:=i div 2;
    b:=i*i*i;
   end;
  s:=s+sqr(a-b);
 end;
write('S=',s)
end.

@mmok · 21.06.2021, 16:53

Puporev, А в С++ можешь пожалуйста написать код?

@Puporev · 21.06.2021, 16:55

Нет.

@Xait 2 / 2 / 0 Регистрация: 04.11.2017 Сообщений: 58
		1
	Вычислить сумму 26.11.2017, 18:27. Показов 2286. Ответов 3 Метки нет (Все метки) вычислить (a - b)^2 где, a i если i - нечетное, i/2 в противном случае, b i^2 i - нечетное i^3 в противном случае Миниатюры __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@mmok 0 / 0 / 0 Регистрация: 26.01.2021 Сообщений: 10
	21.06.2021, 16:53	3
	Puporev, А в С++ можешь пожалуйста написать код? 0

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	21.06.2021, 16:55	4
	Нет. 0

Опции темы

Вычислить сумму

Решение