Нужно решить на паскале (abc) дано предложение, в котором имеется несколько букв е. найти: а) порядковый номер первой из них; б) порядковый номер последней из них.
Var a,c,f:integer; d:string; begin f:=0; writeln('введите строку'); readln(d); a:=pos('е',d); writeln('первый символ стоит на ',a,' позиции'); for c:=1 to length(d) do begin if (d[c] = 'е') then f:=c; end; writeln('последний символ стоит на ',f,' позиции'); end.
{ PascalABC.Net } var s:string; i:integer; begin Writeln('Введите строку: '); Readln(s); Writeln('Позиция первой "е": ',Pos('е',s)); Writeln('Позиция последней "е": ',Pos('е',ReverseString(s))) end.
Тестовое решение: Введите строку: Строка - тестовое решение для PascalABC.Net Позиция первой "е": 11 Позиция последней "е": 19
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Число элементов в массиве:'); var a:=ArrRandom(n,1,99); Write('Исходный массив: '); a.Println; var n1,n2:integer; Write('Границы номеров элементов для суммы: '); Read(n1,n2); if n1>n2 then Swap(n1,n2); if (n1<1) or (n2>n) then Writeln('Границы выходят за пределы массива') else Writeln('S=',a[n1-1:n2].Sum) end.
Пример Число элементов в массиве: 15 Исходный массив: 89 82 45 28 88 68 34 19 35 26 67 43 71 96 66 Границы номеров элементов для суммы: 4 9 S=272
Основные методы доступа к Интернету — dial-up, наземные линии (через коаксиальный кабель, оптоволокно или медные провода) , цифровые телекоммуникационные линии, Wi-Fi, спутник и сотовые телефоны. Dial-up — распространённый тип соединения, предоставляемый провайдерами (поставщиками услуг интернета) , также самый медленный и, обычно, наименее дорогой. Соединение dial-up позволяет пользователям соединяться с Интернетом через местный сервер, используя стандартный модем; компьютер осуществляет набор телефонного номера, предоставленного провайдером, по нему соединяется с модемом сервера и, таким образом, со всем Интернетом. Таким образом, подсоединённые пользователи могут осуществлять поиск по всей Всемирной Паутине, однако, по сравнению с современными скоростями широкополосного доступа в Интернет, dial-up являет собою очень медленное соединение и может номинально передавать данные лишь со скоростью 56 килобит в секунду, при прочих равных условиях.
Соединения на базе асимметрических цифровых абонентских линий (ADSL) обеспечивают широкополосный доступ в Интернет, становятся всё более доступны и могут обеспечивать интернет-соединение превосходного качества. Эти соединения работают посредством разделения функции телефонной линии на отдельные каналы для голосовых телефонных вызовов и для передачи информации. Таким образом, пользователь одновременно может разговаривать по телефону и быть соединённым с Интернетом. Услуги на базе ADSL продаются с разными скоростными спецификациями, ниже приведены некоторые общераспространённые конфигурации: (скорость загрузки/выгрузки) * 256 кбит в сек/128 кбит в сек * 512 кбит в сек/128 кбит в сек * 1 Мбит в сек/256 кбит в сек
d:string;
begin
f:=0;
writeln('введите строку');
readln(d);
a:=pos('е',d);
writeln('первый символ стоит на ',a,' позиции');
for c:=1 to length(d) do begin
if (d[c] = 'е') then f:=c;
end;
writeln('последний символ стоит на ',f,' позиции');
end.