Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Pascal
вычислить сумму 1^4+2^4+...+N^4 (while, repeat until или For)

Ответ оставил Гость

Program al;
var n,i,s:integer;
begin
writeln(vvedite n =);
readln(n);
s:=0;
for i := 1 to n do
s:=s+sqr(i)*sqr(i);
writeln (s=,s);
readln;
end.