// PascalABC.NET 3.1, сборка 1246 от 23.05.2016 begin var s:=ReadlnString('Введите слово:'); var c:=ReadlnChar('Введите символ:'); var p:=Pos(c,s); if p>0 then begin s:=s[:p]+s[p+1:]; Writeln('Результат: ',s) end else Writeln('Такого символа в слове нет') end.
Тестовое решение Введите слово: информатика Введите символ: м Результат: инфоратика
1. Перевод текста с английского языка на русский можно назвать: б) Информационным процессом обработки информации; 2. Измерение температуры представляет собой в) процесс получения 3. Перевод текста с английского языка на русский можно назвать: в) процесс полученияд) процесс использования. 4. Записная книжка обычно используется с целью: г) хранения, обработки и передачи информации; 5. Примером передачи информации может служить процесс: а) отправление телеграммы 6. Какие из перечисленных процессов являются информационными: б) процессы получения, поиска, хранения, передачи, обработки и использования информации 7. Под носителем информации понимают: в) среду для записи и хранения информации
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 begin var a:=MatrixRandom(7,7,0,9); var k:=0; for var i:=0 to 6 do begin for var j:=0 to 6 do begin Write(a[i,j]:3); if a[i,j] in [1..5] then Inc(k) end; Writeln end; Writeln('Кол-во элементов на [1,5]: ',k) end.
const n=7; var a:array[1..n,1..n] of integer; i,j,k:integer; begin Randomize; k:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(10); Write(a[i,j]:3); if a[i,j] in [1..5] then Inc(k) end; Writeln end; Writeln('Кол-во элементов на [1,5]: ',k) end.
begin
var s:=ReadlnString('Введите слово:');
var c:=ReadlnChar('Введите символ:');
var p:=Pos(c,s);
if p>0 then begin
s:=s[:p]+s[p+1:];
Writeln('Результат: ',s)
end
else Writeln('Такого символа в слове нет')
end.
Тестовое решение
Введите слово: информатика
Введите символ: м
Результат: инфоратика