Дана строка символов. Определить число символов в строке. Если это число больше 5, то...

Question

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

Comments

Добрый вечер)))

---

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.

---

вот так

---

Если не Турбо Паскаль, то d1 тут ни к чему

---

Vars:string[200];beginwriteln('Введи строку s= ');readln(s);if Length(S)>5 then S:=S+'КЛМН';writeln('Новая строка ',s);end.

---

спасибо

Answer 1

Если не Турбо Паскаль, то d1 тут ни к чему Var
s:string[200];
begin
writeln('Введи строку s= ');
readln(s);
if Length(S)>5 then S:=S+'КЛМН';
writeln('Новая строка ',s);
end.