Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nata1116
24.12.2022 15:53 •
Информатика
Линейный разветвляющийся цикл с преудсловием цикл с постусловием
1 команда
0 из 1
2 команда
0 из 1
3 команда
0 из 1
1 команда
2 команда
3 команда
Показать ответ
Ответ:
EvilQueen25
15.02.2021 07:41
[l,r,строка,номер]
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[0, 3, "abba", 5]
[3, 3, "a", 6]
[3, 4, "aa", 7]
[4, 4, "a", 8]
[3, 5, "aaa", 9]
[4, 5, "aa", 10]
[5, 5, "a", 11]
[3, 6, "", 12]
[4, 6, "aaa", 13]
[5, 6, "aa", 14]
[6, 6, "a", 15]
[2, 7, "bb", 16]
[7, 7, "b", 17]
[6, 8, "aba", 18]
[8, 8, "a", 19]
[7, 9, "bab", 20]
[9, 9, "b", 21]
#код программы Ruby 22
s = "abbbab"
n = 0
for r in 0..s.size-1
for l in 0..r
t = s[l..r]
if t.reverse == t
n += 1
p [l,r,t,n]
end
end
end
0,0
(0 оценок)
Ответ:
Яра3838367373
11.04.2021 10:56
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида
//PascalABC.Net
function NOD(A, B: integer): integer;
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
procedure pNOD(A, B: integer; var NOD: integer);
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
begin
var a: Array of integer := (16, 32, 40, 64, 80, 128);
var n := a[low(a)];
for var i := low(a) to high(a) do
pNOD(n, a[i], n);
Writeln(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Лилия2073
22.10.2021 00:56
Помгите(( СОР! устонови соотвествие...
ooficerova
23.01.2020 22:24
Решите задачу, 2. В классе ребята обсуждали какую собаку подарят родители их приятелю. Первый сказал, что это будет хаски чёрного цвета, Наверное, белого пуделя, - предположит...
pdv20
01.02.2021 04:29
Сколько компакт-дисков информационным объёмом 700 МБ каждый понадобится для хранения информации, полученной по каналу связи со скоростью передачи данных 10 Мбит в секунду...
anyBeef
11.04.2021 06:16
Написать программу вывода на экран 1000 чисел информатика...
nastyahanna4728
11.04.2021 06:16
Икт: у исполнителя вычислитель есть две команды,которым присвоены номера: 1.умножить на 3 2.прибавь 4 составите алгоритм получения из числа 3 числа 37,...
анюта606
03.12.2021 14:02
Водномерном массиве состоящем из n вещественных элементов, (n =50) вычислить количество и произведение элементов массива, расположенных между максимальным и минимальным...
ndv1525
02.03.2022 13:47
Микропроццесор дегеніміз не? Отыныш...
Belayalbina2512
14.04.2023 11:34
уже долго сижу над этими задачами, поняла, что нужна...
AgumiChan
14.04.2023 11:34
1. Отметьте все правильные высказывания о файл-серверных СУБД: обработку данных выполняет сервер; рабочие станции могут быть маломощными; основная нагрузка приходится...
linaserdyuk13
08.04.2020 13:06
применять различные средства защиты такие как дизенвицирующие при соблюдать гигиену и наращивать имунитет...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[0, 3, "abba", 5]
[3, 3, "a", 6]
[3, 4, "aa", 7]
[4, 4, "a", 8]
[3, 5, "aaa", 9]
[4, 5, "aa", 10]
[5, 5, "a", 11]
[3, 6, "", 12]
[4, 6, "aaa", 13]
[5, 6, "aa", 14]
[6, 6, "a", 15]
[2, 7, "bb", 16]
[7, 7, "b", 17]
[6, 8, "aba", 18]
[8, 8, "a", 19]
[7, 9, "bab", 20]
[9, 9, "b", 21]
#код программы Ruby 22
s = "abbbab"
n = 0
for r in 0..s.size-1
for l in 0..r
t = s[l..r]
if t.reverse == t
n += 1
p [l,r,t,n]
end
end
end
Для нахождения нода используется алгоритм Эвклида
//PascalABC.Net
function NOD(A, B: integer): integer;
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
procedure pNOD(A, B: integer; var NOD: integer);
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
begin
var a: Array of integer := (16, 32, 40, 64, 80, 128);
var n := a[low(a)];
for var i := low(a) to high(a) do
pNOD(n, a[i], n);
Writeln(n);
end.