Составить алгоритм решения задачи с блок-схемы и алгоритмического языка псевдокод, используя конструкцию циклического алгоритма. 1. Найти сумму чисел, кратных трем, в диапазоне от 0 до 50. НА АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ!

Программа

 {

покажись;

в_точку ( -125 ,-100 );

опусти_перо;

вперед ( 100 );

вправо ( 90 );

вперед ( 50 );

вправо ( 90 );

вперед ( 100 );

подними_перо;

в_точку ( -55 ,-50 );

опусти_перо;

вперед ( 50 );

влево ( 90 );

вперед ( 27 );

влево ( 90 );

вперед ( 50 );

влево ( 90 );

вперед ( 27 );

подними_перо;

 в_точку ( -10 ,-100 );

 опусти_перо;

 вправо ( 105 );

 вперед ( 52 );

 вправо ( 150 );

 вперед ( 52 );

 вправо ( 15 );

 подними_перо;

 в_точку ( 35 ,-50 );

 опусти_перо;

 вперед ( 50 );

 влево ( 150 );

 вперед ( 54 );

 вправо ( 150 );

 вперед ( 50 );

 подними_перо;

 в_точку ( 80 ,-50 );

 опусти_перо;

 вперед ( 50 );

 влево ( 180 );

 вперед ( 25 );

 вправо ( 90 );

 вперед ( 27 );

 влево ( 90 );

 вперед ( 25 );

 влево ( 180 );

 вперед ( 50 );

 подними_перо;

 в_точку ( 125 ,-100 );

 опусти_перо;

 вправо ( 195 );

 вперед ( 52 );

 вправо ( 150 );

 вперед ( 52 );

 вправо ( 15 );

 влево ( 90 );

 подними_перо;

 в_точку ( 125 ,-75 );

 опусти_перо;

 вперед ( 27 );

 подними_перо;

 в_точку ( 175 ,-100 );

 }

def func1(arr)

 arr.select { |item| (100..999).cover?(item) && (item / 100 == item % 10) }

end

def func2(arr)

 arr.count { |item| (item % 3).zero? && (item % 10 != 5) }

end

def func3(arr)

 sum = 0

 arr.each { |x| sum += x if x.even? && (10..99).cover?(x) }

 sum

end

def func4(arr)

 narr = []

 arr.each { |x| narr.push(x) if (100..200).cover?(x) }

 narr.empty? ? (arr.map { |x| x = 1 }) : narr

end

arr = Array.new(rand(2..1000))

arr.map! { |item| item = rand(0...2000) }

puts 'Исходный массив:'

puts arr

puts "\n1. Найти и вывести на экран все трехзначные числа,в которых на первом и последнем месте стоят одинаковые цифры: "

puts func1(arr)

puts "\n2. Подсчитать количество чисел,кратных 3 и не оканчивающихся на 5 и вывести на экран: "

puts func2(arr)

puts "\n3. Найти сумму всех двузначных четных чисел и вывести на экран: "

puts func3(arr)

puts "\n4. Найти в массиве числа из диапазона от 100 до 200 включительно и вывести на экран,если таких нет,то заменить все числа на 1 и вывести на экран:"

puts func4(arr)