Даны три действительных числа. найти сумму кубов тех из них, которые неотрицательны, для остальных найти сумму квадратов. паскаль

279

440

Посмотреть ответы 2

Ответы на вопрос:

notix55

Информатика

4,8(41 оценок)

Const n=3; var a: array[1..n] of integer; s1,s2,i: integer; begin writeln('vvedite tri cisla='); for i : = 1 to n do readln(a[i]); s1: =0; s2: =0; for i : = 1 to n do if a[i]> 0 then s1: =s1+sqr(a[i])*a[i] else s2: =s2+sqr(a[i]); writeln('s1=',s1,' s2=',s2); readln; end.