Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nelli37
29.01.2022 17:07 •
Информатика
Решить самостоятельную работу по логическим операциям
Показать ответ
Ответ:
iskevuchp091sn
01.09.2022 03:40
# # Код на ruby 2.2.3p173
def LineUpArraySize(num)
cur_size = 4
while num > cur_size
cur_size = 2 * cur_size + 8
end
cur_size = 2 * cur_size + 8
end
def getSpiralNeighbours(num)
a = []
a[0] = [0, 0]
a[1] = [-1, 1]
moves = [[1, 0], [0, -1], [-1, 0], [0, 1]]
move_direction = 0
side_size = 2
cur_size = 1
cycle = 1
mode_direction = 0
for i in 2..LineUpArraySize(num)
new_num = Array.new(2)
new_num[0] = a.last[0] + moves[move_direction][0]
new_num[1] = a.last[1] + moves[move_direction][1]
a[i] = new_num
# p new_num
cur_size += 1
if cur_size == side_size
cur_size = 1
move_direction = (move_direction + 1) % 4
side_size += 1 if move_direction % 2 == 0
cycle += 1 if move_direction == 0
end
end
a.each_with_index do |i,x|
p [x, i] if (i[0]-a[num][0]).abs <= 1 and (i[1]-a[num][1]).abs <= 1
end
end
getSpiralNeighbours(1090)
Вывод (числа и условные координаты)
[962, [15, 16]]
[1089, [15, 17]]
[1090, [16, 17]]
[1091, [16, 16]]
[1224, [15, 18]]
[1225, [16, 18]]
[1226, [17, 18]]
[1227, [17, 17]]
[1228, [17, 16]]
0,0
(0 оценок)
Ответ:
Софайа
08.07.2020 05:57
Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sig46dg
03.02.2022 12:47
Дан одномерный массив А неупорядоченных целых чисел. Найти и вывести на экран максимальное значение для всех нечетных по значению элементов массива. Предусмотреть...
mikayilmalik2
14.10.2021 00:42
У исполнитля вычислитель 2 команды, котором присвоены номера: 1. умножь на четыре 2. прибавь b (b - неизвестное натуральное число) 1 из них увелчвает число на экране...
oleg410
05.06.2022 09:38
11. Модель отражает: 1. все существующие признаки объекта 2. некоторые из всех существующих 3. существенные признаки в соответствии с целью моделирования 4. некоторые...
andrejpuzanov90
23.07.2022 14:13
1-т керек в) кесте мен сендерген 2-т 4-т 3-т (айырмашылығың) берем...
dashaponomarev4
04.03.2021 23:40
Решить задачи: 1. если введенное с клавиатуры число оканчивается на 4 и делится на 8, то вывести «YES» иначе «NO». 2. определить, является ли число, введенное с клавиатуры,...
Ore11
22.07.2022 15:01
Дано целое положительное число A. Требуется вывести такое максимальное возможное натуральное нечетное число K, при котором 1+(1+3)+(1+3+5)+...+(1+3+...K) не превышает...
magmadi1
23.08.2021 16:08
Главные гении этого мира, ай нид хелп! Есть задача на классы: Описать класс CListDeleteFirstPositive для работы со списками. Дополнительный метод: удаление из списка...
bogdanа
09.04.2021 11:43
Общее количество крови (сколько крови) в организме взрослого человека в норме составляет 6-8% массы тела, т.е. примерно 5-6 л. Весь объём крови живого организма условно...
Dimitriy2281
22.02.2022 21:49
При регистрации в компьютерной системе каждому пользователю присваивается идентификатор фиксированной длины, состоящий из двух частей. Первая часть включает 10 заглавных...
DmitryKind98
03.06.2023 17:34
Составьте программу нахождения количество цифр натурального числа n....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
def LineUpArraySize(num)
cur_size = 4
while num > cur_size
cur_size = 2 * cur_size + 8
end
cur_size = 2 * cur_size + 8
end
def getSpiralNeighbours(num)
a = []
a[0] = [0, 0]
a[1] = [-1, 1]
moves = [[1, 0], [0, -1], [-1, 0], [0, 1]]
move_direction = 0
side_size = 2
cur_size = 1
cycle = 1
mode_direction = 0
for i in 2..LineUpArraySize(num)
new_num = Array.new(2)
new_num[0] = a.last[0] + moves[move_direction][0]
new_num[1] = a.last[1] + moves[move_direction][1]
a[i] = new_num
# p new_num
cur_size += 1
if cur_size == side_size
cur_size = 1
move_direction = (move_direction + 1) % 4
side_size += 1 if move_direction % 2 == 0
cycle += 1 if move_direction == 0
end
end
a.each_with_index do |i,x|
p [x, i] if (i[0]-a[num][0]).abs <= 1 and (i[1]-a[num][1]).abs <= 1
end
end
getSpiralNeighbours(1090)
Вывод (числа и условные координаты)
[962, [15, 16]]
[1089, [15, 17]]
[1090, [16, 17]]
[1091, [16, 16]]
[1224, [15, 18]]
[1225, [16, 18]]
[1226, [17, 18]]
[1227, [17, 17]]
[1228, [17, 16]]
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.