19456 байт =19 килобайт, 1кбайт=1024байт, т.е нужно 19456 разделить на 1024, 19456/1024=19
1.Попробуй вставить другую картинку
2.Переустанови word
3.Измени размер картинки в paint'е
Правое плечо. в правой картинке у него светлее
Сначала переменные по нулям. Потом проверяем не равно ли b 10 если нет то с :=c+b (0:=0+0); b:=b+1 (0:= 0+1); Снова проверяем c:=c+b (0:=0+1); b:=b+1 (1:=1+1); И так до конца.
Ответ получается 45
var
i: integer;
mult: real;
begin
mult := 1;
for i:= 2 to 10 do
begin
mult := mult * (1 - 1/i) * (1 - 1/i);
end;
writeln(mult);
readln();
Вот тебе ответ по этому выражению.