Те́кстовые данные (также текстовый формат) — представление информации в вычислительной системе в виде последовательности печатных символов. В MIME закодированным таким образом данным соответствует тип text/plain
Числовые данные Выбор между двумя типами числовых данных, используемыми в языке JScript — целочисленными данными и данными с плавающей запятой, — определяется ситуацией, в которой они используются. ... К целочисленному типу данных относятся положительные и отрицательные целые числа и ноль.
Цифрово́й звук — результат преобразования аналогового сигнала звукового диапазона в цифровой аудиоформат.
Program Posledovatelnost; var a: char; b: string; code, c: integer; label dne;begin readln(a); //Читаем code := Ord(a); //Преобразуем b := Concat(b, a); for c := 1 to 31 do begin case code of 97, 65: begin//если "A" readln(a); code := Ord(a); case code of 101, 69: b := Concat(b, a); 105, 73: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 98, 66: begin//Если "B" read(a); code := Ord(a); case code of 102, 70: b := Concat(b, a); 106, 74: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 99, 67: begin//Если "C" read(a); code := Ord(a); case code of 103, 71: b := Concat(b, a); 107, 75: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 100, 68: begin//Если "D" read(a); code := Ord(a); case code of 104, 72: b := Concat(b, a); 108, 76: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 101, 69: begin//Если "E" readln(a); code := Ord(a); case code of 97, 65: b := Concat(b, a); 105, 73: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 102, 70: begin//Если "F" readln(a); code := Ord(a); case code of 98, 66: b := Concat(b, a); 106, 74: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 103, 71: begin//Если "G" readln(a); code := Ord(a); case code of 99, 67: b := Concat(b, a); 107, 75: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 104, 72: begin//Если "H" readln(a); code := Ord(a); case code of 100, 68: b := Concat(b, a); 108, 76: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 105, 73: begin//Если "I" readln(a); code := Ord(a); case code of 97, 65: b := Concat(b, a); 101, 69: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 106, 74: begin//Если "J" readln(a); code := Ord(a); case code of 98, 66: b := Concat(b, a); 102, 70: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 107, 75: begin//Если "K" readln(a); code := Ord(a); case code of 99, 67: b := Concat(b, a); 103, 71: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 108, 76: begin//Если "L" readln(a); code := Ord(a); case code of 100, 68: b := Concat(b, a); 104, 72: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; end; end; writeln(b); dne: end.
1 символ в askii занимает 1 байт
1 символ в unicode занимает 2 байта
ответов будет два 10485760 и 5242880