Перевести код с Паскаля

@Vetserik · Регистрация: 21.03.2018

Программа из строки символов удаляет символы, которые отличаются от русских букв и пробелов. Я бы и сам сделал но не знаю как обозначить русские буквы.

Pascal

Var s:string;
  i:integer;
Begin
  i:=1;
  write('Введите строку: ');readln(s);
  While i<=length(s) do
  if (s[i] in ['а'..'я','А'..'Я']) or (s[i]=' ') then inc(i) else Delete(s,i,1);
  writeln('Полученная строка: ',s);
End.

@D1973 · 17.02.2020, 20:02

Vetserik, а Вам что, тоже консольное приложение надо?

@D1973 Модератор 6385 / 4070 / 1766 Регистрация: 21.01.2014 Сообщений: 16,997 Записей в блоге: 3
	17.02.2020, 20:02	2
	Vetserik, а Вам что, тоже консольное приложение надо? 0

Опции темы