Var E,P:decimal;
i,j:integer;
Begin
E:=0;
For i:= 3 to 8 do
Begin
P:=1;
For j:= 1 to 9 do
P:=P*sqr(i+j);
E:=E+P
End;
WriteLn('S = ',E);
End.
Word, Open Office, ,Notepad++, AkelPad, UltraEdit,Cтандартный блокнот Windows, AbiWord, WordPerfect,Notepad++, AkelPad, UltraEdit,Cтандартный блокнот Windows
Выделить буквы другим цветом
Залить фон с буквами
Жирный шрифт
Подчеркивание