xmrskris
Опубликовано 6 лет назад по предмету Информатика от xmrskris


Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 6 или 11. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 –  признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 6 или 11.

  1. Ответ
    Ответ дан smfliss
    constN = 30;vara:array [1..N] of longint;I, j, k: longint;begin   for i:=1 to N do      Readln(a[i]);      k:=0      for i:=0 to N do      begin         if (a[i]mod6=0) or (a[i]mod11=0) and (a[i]<>0) then         inc(k);      writeln(k)
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц