Запишите на языке паскаль программу которая вычисляет сумму кодов букв в слове байт

  const      b = 'байт';     var    l,i,s : integer;           begin  l : = length(b);   s : = 0;     for i : = 1 to l do    s : = s +ord(b[i]);         writeln (s);   end.

 

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

1)

s : = 0;

for i : = 1 to k do

begin

  if i mod 2 < > 0 then

      s: = s + i;

end;

2)

for i : = 5 to 55 do

begin

  if i mod 2 < > 0 then

      writeln(i);

end;

3)

s : = 1;

for i : = n to m do

begin

  s: = s * i;

end;

4)

s : = 0;

for i : = 10 to 15 do

begin

        s: = s + i;

end;

 

обрамления там везде одинаковые