Question

Дана последовательность целых чискл от k до n. Найти уоличества оканчивающисч 0​

Answer 1

Ответ:

k, n = [int(s) for s in input().split()]

z=[]

for i in range(k, n + 1):

   if i%10==0:

       z.append(i)

print(' '.join(map(str, z)))

Объяснение:

Answer 2

Язык не указан, напишу на Haskell.

На вход программе подаются числа k и n, на основе которых задаётся последовательность.

• mainz :: IO ()
• mainz = do
•  putStr "Введите k: "
•  k <- getInt
•  putStr "Введите n: "
•  n <- getInt
•  putStr "Количество чисел в последовательности, оканчивающихся на 0: "
•  print $ length . filter (\x -> x `mod` 10 == 0) $ [k..n]
•  where
•    getInt = unJust . readMaybe <$> getLine :: IO Int
•    unJust Nothing = error "Incorrect input"
•    unJust (Just x) = x