Question

задача. Создать 8 литерных переменных (char). Каждой из них присвоить по букве из имени
SERAFIMA
к задаче вывести слово полученное путем шифровки имени. Код шифровки - каждая буква - это следующая буква по алфавиту .

Answer 1

Решение задачи в приложенном файле.
Ответ TFSBGJNB
(1-ая программа - шифратор. 2-ая - решение к первой части задания)

5c87ddc5095c7c4ae8c70e691055d5dd.pas

27963267b174a578bce6c7761c3e8e98.pas

Answer 2

var
a, b, c, d, e, f, g, h: char;

begin
read(a,b,c,d,e,f,g,h);
write(a,b,c,d,e,f,g,h);
end.

Answer 3

Хотя...

Answer 4

Если сказанно присвоить

Answer 5

то

Answer 6

var
a, b, c, d, e, f, g, h: char;

begin
a:='S';
b:='E';
c:='R';
d:='A';
e:='F';
f:='I';
g:='M';
h:='A';
write(a,b,c,d,e,f,g,h);
end.