Саша хочет ввести символ и вывести его, добавив по "1" слева и справа от него. Помогите...

Question

Саша хочет ввести символ и вывести его, добавив по "1" слева и справа от него. Помогите ему в этом нелегком деле. )
Формат ввода: вводится символ
Формат вывода: надо вывести "1" символ "1"
Пример ввода: L
Пример вывода : 1L1

Comments

программу написать?

---

да )) в Pascal ABC )

---

ок,ща

Answer 1

Program primer;
uses crt;
var
a:char;
s1,s2,s3:string;
begin
clrscr;
writeln('vvedite simvol');
readln(a);
s1:='1';
s2:=a;
s3:=s1+s2+s1;
writeln(s3:4);
end.
но я бы попроще
после readln(a);
writeln(1,'a',1);
end.

Comments

А зачем uses crt; в Паскале АВС?

---

И еще: зачем в операторе вывода указано s3:4? Символов же три на выводе...

---

я забыла uses crt и clrscr убери

---

а s3 это переменная, просто имя

---

Нет, вопрос в том, зачем указано :4 после s3 ?

---

ну,приаычка у меня,чтобы не смешивать

---

Вы не для себя пишете, а решаете задание автору вопроса. Как он потом должен объяснять это Ваше :4 ?

Answer 2

Var
  c:char;
begin
  Write('Введи символ: '); Readln(c);
  Writeln('1',c,'1')
end.

Тестовое решение:
Введи символ: L
1L1