• 24 March 2017
    • Українська література
    • Автор: Вввввв11

    Помогите!!!!
    Напишите программу,которая в последовательности натуральных чисел определяет количество трехзначных чисел,кратных 4.Программа получает на вход натуральные числа,количество введенных чисел,неизвестно,последовательность чисел заканчивается числом 0 (0-признак окончания ввода,не входит в последовательность).Количество чисел не превышает 1000.Введенные числа не превышают 30000.Программа должна вывести одно число:количество трехзначных чисел,кратных 4.
    (Паскаль)

    • Ответ оставил: Мненужнпомошь
    // PascalABC.NET 3.2, сборка 1411 от 23.03.2017// Внимание! Если программа не работает, обновите версию!begin  Write(ReadSeqIntegerWhile(k->k<>0).      Where(k->(k>99)...
    • Ответ оставил: Мненужнпомошь
    Var A,k:integer;Begink:=0;RepeatRead(A);if (A>99)and(A<1000)and(A mod 4 = 0) then k:=k+1Until A = 0;WriteLn(k);End.
    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предметы...

Последние опубликованные вопросы