Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.
var
I, Code : Integer;
R: real;
S: string;
begin
writeln('Vvedite chislo');
readln(S); //записываем число/прочие символы строкой
Val(S, I, Code);
if (Code=0) then
writeln(I)
else
begin
Val(S, R, Code);
if (Code=0) then
writeln(R)
else
writeln('Error');
end;
readln;
end.
Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно)
Пользователь вводит произвольную строку, перестройте её в "ёлочку".
var s: string;
i, n, h: Integer;
begin
n:=1; //необходимо символов в строке
h:=0; //счетчик вывода
writeln('Vvedite stroku');
readln(s);
for i:=1 to length(s) do
begin
write(s[i]);
inc(h);
if h = n then
begin
writeln();
inc(n);
h:=0;
end;
end;
readln();
end.