Дана строчка символов. Найти число знаков в строке. Если это число

Дана строчка знаков. Найти число знаков в строке. Если это число больше 5, то добавить к строке символы 'КЛМН' . НУЖЕН ПАСКАЛЬ!!!!!!!!!!!!!!

Задать свой вопрос
Варвара Пригорко
Добрый вечер)))
Павел Рыжевич
if Length(S)>5 then S:=S+'КЛМН';
Клименкова Елизавета
Ну и ввод-вывод переменных - всё
Ирина Файбайн
Vars:string[200];d1:byte;beginwriteln('Введи строчку s= ');readln(s);d1:=ord(s[0]);if Length(S)>5 then S:=S+'КЛМН'; writeln('Новенькая строка ',s); end.
Buzulukov Roman
вот так
Кира Чуйченко
Если не Турбо Паскаль, то d1 тут ни к чему
Дмитрий Шкадюк
Vars:string[200];beginwriteln('Введи строчку s= ');readln(s);if Length(S)>5 then S:=S+'КЛМН';writeln('Новая строчка ',s);end.
Олеся Богасевич
спасибо
1 ответ
Если не Турбо Паскаль, то d1 здесь ни к чему Var
s:string[200];
begin
writeln('Введи строчку s= ');
readln(s);
if Length(S)gt;5 then S:=S+'КЛМН';
writeln('Новая строчка ',s);
end. 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт