Срочно нужно разобрать за задачи по пунктамКомментарии : 0 Просмотры : 720
k,j,i,i1:integer; begin for i:=1 to n do for j:=1 to n do read (a[i,j]); begin for j:=1 to n do for i:=1 to n do begin if a[i,j]<0 then k:=k+1; if i=n then begin write(' ',k); k:=0; end; end; end; end 2 var s1,s2: string; c: char; i: byte; begin readln(s1); s2 := ''; for i:=1 to length(s1) do begin c := s1; if (pos(c,s2) = 0) and (c <> ' ') then s2 := s2 + c end; writeln(s2); end. 3.const N = 20; type arr = array[1..N] of integer; var a: arr; i: byte; p,q,e: integer; function search(var c: arr; elem: integer): byte; var m,i,j: integer; begin m := N div 2; i := 1; j := N; while (c [m]<> elem) and (i <= j) do begin if elem > c [m]then i := m + 1 else j := m - 1; m := (i+j) div 2; end; if i > j then search := 0 else search := m; end; begin randomize; p := 1; q := 4; for i:=1 to N do begin a := random(q-p)+p; p := p + 3; q := q + 3; write(a,' '); end; writeln; write('Число: '); readln(e); i := search(a,e); if i = 0 then writeln('Такого числа в массиве нет.') else writeln('Число ', e, ' находится на ', i, '-м месте.'); end. 4.var s,s1,s2:string; i:byte; begin write('Введите строку: '); readln(s); write('Введите последовательность символов,которую нужно заменить: '); readln(s1); write('Введите последовательность символов,на которую нужно заменить: '); readln(s2); while Pos(s1,s)>0 do begin i:=Pos(s1,s); Delete(s,i,Length(s1)); Insert(s2,s,i); end; writeln('Полученная строка = ',s); readln; end. Комментарии : 0 Просмотры : 720 |
НавигацияПоискПопулярные
Сумма и разность двух чисел 24 Июн 13
Найти максимальное число в массиве 24 Июн 13 Сдвиг 01 Окт 14 Квадрат числа 24 Июн 13 Считая три введенных натуральных числа a,b,c длинами сторон треугольника, вычислить его периметр и площадь. 05 Апр 17 Обсуждаемые
вводиться файл из натуральных чисел. Требуется отсортировать числа в файле в порядке возрастания 08 Май 15
Простая арифметика 12 Ноя 16 Сумма квадратов 28 Июн 16 СРОЧНО!!! 29 Апр 16 На 27 Дек 15 Скачать паскальРешение задач
Если вас интересует решение какой-либо задачи , то вы можете опубликовать
её условие на нашем сайте или форуме. И в скором времени другие пользователи помогут вам. Опубликовать на сайте Опубликовать на форуме Опрос |