Напечатать сумму кубов чисел -10,-8,-6,-4,-2.pascal? - вопрос №6828005108642 от polinkamalinka28 18.04.2020 11:19

Question

Информатика: Напечатать сумму кубов чисел -10,-8,-6,-4,-2.pascal?

polinkamalinka28 · Answer

Var sum,num,i:integer;beginwriteln( Введите числа );for i:=1 to 5 do begin readln(num); sum:= sum + sqr(num) * num; end;writeln(sum);end.P.S sqr(num)*num Возводит в куб...