Задача. Создать 8 литерных переменных (char). Каждой из них присвоить по букве из имени...

Question

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

Answer 1

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

Comments

Или же необходим отдельно каждую переменную присваивать без цикла?

---

каждую отдельно

---

var
a,b,c,d,e,f,g,h:char;
begin
read(ar[i]);
for i:=1 to 8 do
write(ar[i]);
end.

---

не то

---

сейчас

---

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.

---

Хотя...

---

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

---

то

---

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.