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

const

  s = 'байт';

var

  i, sum : integer;

begin

  sum : = 0;

  for i : = 1 to 4 do

    sum : = sum + ord (s[i]);

  writeln (sum);

end.

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.