Question

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

Answer 1

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

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

Answer 2

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.

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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