Великий сказочник рассказывал, что однажды побывал в фруктовой стране, в которой все названия городов – это названия фруктов. поскольку страна маленькая, то городов в ней мало, и дорог тоже. рассказчик запомнил, что прямые дороги были проложены между яблоко и папайя, между киви и папайя, между папайя и апельсин, между киви и ананас, между ананас и апельсин, между грейпфрут и манго, между мандарин и груша, между банан и мандарин. других дорог в этой стране нет. также отметим, что все дороги двусторонние, то есть если есть дорога между яблоко и апельсин, то из города яблоко можно по этой дороге попасть в город апельсин, а из города апельсин — в город яблоко. в каких городах мог побывать сказочник, если он был в городе яблоко и передвигался только по местным дорогам? выберите все города, в которых он мог оказаться. яблоко папайя киви апельсин ананас грейпфрут манго мандарин груша банан
Ответы
Только: папайя, киви, ананас, апельсин.а грейпфрукт, манго, мандарин, груша, банан, через них нельзя проити в яблоко.удачи!
Var s: string; c1,c2: char; i,k: integer; begin write('введите строку: '); readln(s); write('введите букву, которую надо найти: '); readln(c1); write('введите букву, на которую надо заменить: '); readln(c2); k: =0; for i: =1 to length(s) do if s[i]=c1 then begin inc(k); s[i]: =c2 end; writeln('найдено вхождений и сделано замен: ',k); writeln('строка после замен: '); writeln(s) end. тестовое решение: введите строку: а роза упала на лапу азора введите букву, которую надо найти: а введите букву, на которую надо заменить: о найдено вхождений и сделано замен: 6 строка после замен: а розо уполо но лопу азоро
Const n = 10; var a,b: array[1..n] of integer; i, s, imax, smax: integer; begin randomize; writeln('элементы массива a'); for i : = 1 to n do begin a[i] : = random(30)+5; write(a[i]: 3); end; writeln; smax: =0; imax: =0; writeln('элементы массива b'); for i : = 1 to n do begin b[i] : = random(30)+5; write(b[i]: 3); s: =a[i]*b[i]; if smax< s then begin imax: =i; smax: =s end end; writeln; writeln('прямоугольник номер ',imax,' имеет максимальную площадь ', a[imax],'x',b[imax],'=',smax) end. тестовое решение: элементы массива a 31 30 34 9 12 11 11 24 34 29 элементы массива b 18 16 15 16 19 22 24 22 25 5 прямоугольник номер 9 имеет максимальную площадь 34x25=850
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Для чего предназначен аудиоадаптер?
Автор: kisa-luba
С РЕШЕНИЕ ТЕСТА Желательно с подробными ответами
Автор: snabdonm501
Найти выражение системы счисление из двоичной в десятичную 1011111+11001
Автор: sergeykvik13
1. Берілген пиктограммалардын кызметін жазыныз.VODOBALoop do
Автор: LidiyaBorzikh