1. Программа в одной из современных версий Паскаля:
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016 begin var s:=ReadlnString('Исходная строка:'); Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString('')); end.
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016 const legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё']; var s:string; i:integer; begin Write('Исходная строка: '); Readln(s); for i:=Length(s) downto 1 do if not(s[i] in legal) then Delete(s,i,1); Writeln('Результат: ',s); end.
Const n=10; var a,b:array[1..n] of integer; i,k:integer; begin writeln('План поставки:'); for i:=1 to n do begin a[i]:=random(11)+5; write(a[i]:3); end; writeln; writeln('Поставлено:'); for i:=1 to n do begin b[i]:=random(11)+5; write(b[i]:3); end; writeln; k:=0; writeln('Получили трактора сверх плана колхозы:'); for i:=1 to n do begin if a[i]>b[i] then k:=k+1; if a[i]<b[i] then write(i,' '); end; writeln; writeln('Количество колхозов, недополучивших трактора = ',k); end.
Пример: План поставки: 11 8 9 8 10 9 10 9 14 8 Поставлено: 13 5 9 11 7 9 7 14 7 15 Получили трактора сверх плана колхозы: 1 4 8 10 Количество колхозов, недополучивших трактора = 4
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var s:=ReadlnString('Исходная строка:');
Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString(''));
end.
Тестовое решение:
Исходная строка: // PascalABC.NET 3.1, сборка 1211 от 31.03.2016
Результат: PascalABCNETсборкаот
2. Программа в "школьной версии"
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
const
legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё'];
var
s:string;
i:integer;
begin
Write('Исходная строка: '); Readln(s);
for i:=Length(s) downto 1 do
if not(s[i] in legal) then Delete(s,i,1);
Writeln('Результат: ',s);
end.