Язык программирования, с помощью которого можно создавать приложения и игры под, например Windows.
думаю так.
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=2 to n do
begin
p:=p+(1-(1/sqr(i)));
end;
writeln(p);
readln;
end.
1) 30*70*5=1050 байт объем всего текста
2) 4*30*70=8400 бит; 3150*8=25200 бит; 25200/8400=3 бита - вес одного символа. Зная формулу найдем 2^3=8 Значит мощность алфавита равна 8
For i := 1 to 4 do for j := 1 to 5 do if (a[ i, j ] < 0) then m := m * a[ i,j ];
1) начало
2) вводится целое число n
3) если остаток от деления n на 2 равен 0, то печатается сообщение ' 'Число чётное', иначе на печать выдаётся сообщение 'Число нечётное'
4) конец