|
Лайфхак для парней: как добавить 💰 своей девушке? Находка для тех, чьи девушки и супруги работают в сфере услуг: маникюр, брови, ресницы и так далее 🤔 Вы же наверняка задумывались, как помочь своей половинке зарабатывать больше? Но что делать, если во всех этих маркетингах и процедурах не разбираешься от слова «совсем»? Мы нашли выход — это сервис VisitTime Чат-бот для мастеров и специалистов, который упрощает ведение записей: — Сам записывает клиентов и напоминает им о визите — Персонализирует скидки, чаевые, кешбек и предоплаты — Увеличивает доходимость и помогает больше зарабатывать А еще там первый месяц бесплатно, поэтому лучшее, что вы можете сделать сейчас — установить или показать его своей принцессе Всё интуитивно понятно и просто, достаточно нажать на этот текст и запустить чат-бота Срочно нужно разобрать за задачи по пунктамКомментарии : 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 Скачать паскальРешение задач
Если вас интересует решение какой-либо задачи , то вы можете опубликовать
её условие на нашем сайте или форуме. И в скором времени другие пользователи помогут вам. Опубликовать на сайте Опубликовать на форуме Опрос |