Саша хочет ввести символ и вывести его, добавив по "1" слева и справа от него. Помогите ему в этом нелегком деле. ) Формат ввода: вводится символ Формат вывода: надо вывести "1" символ "1" Пример ввода: L Пример вывода : 1L1
Саша хочет ввести символ и вывести его, добавив по "1" слева и справа от него. Помогите ему в этом нелегком деле. )
Формат ввода: вводится символ
Формат вывода: надо вывести "1" символ "1"
Пример ввода: L
Пример вывода : 1L1
Гость
Ответ(ы) на вопрос:
Гостьvar
c:char;
begin
Write('Введи символ: '); Readln(c);
Writeln('1',c,'1')
end.
Тестовое решение:
Введи символ: L
1L1
Гость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.
Не нашли ответ?
Похожие вопросы