Задать вопрос
ИнформатикаИнформатика
22 сентября, 04:45

Помогите с задачей на паскале ...

Даны 100 целых чисел, принадлежащих интервалу [0; 1000]. Определите количество тех из них, которые делятся на 7.

Числа следующие: 127; 60; 255; 579; 525; 545; 425; 984; 320; 159; 193; 408; 742; 732; 767; 924; 504; 399; 720; 321; 571; 254; 53; 878; 392; 228; 548; 237; 196; 90; 469; 824; 639; 36; 391; 546; 272; 630; 256; 681; 487; 331; 904; 755; 41; 380; 540; 839; 61; 973; 269; 783; 629; 201; 33; 805; 605; 468; 672; 549; 277; 601; 921; 498; 772; 737; 354; 502; 641; 439; 915; 838; 746; 698; 441; 90; 904; 223; 670; 743; 240; 270; 646; 704; 779; 873; 370; 721; 910; 962; 152; 850; 450; 306; 729; 632; 467; 632; 144; 918

+3
Ответы (1)
  1. 22 сентября, 07:46
    0
    Var

    a:array[1 ... 1000]of integer;

    i, n, m, k:integer;

    begin

    m:=0;

    k:=0;

    Writeln ('введите числа:') ;

    For i:=1 to 100 do

    Readln (a[i]) ;

    for i:=1 to 100 do

    begin

    if (a[i]mod 7=0) then

    k:=k+1;

    end;

    writeln (k) ;

    end.

    Вот держи выводит количество цифр
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите с задачей на паскале ... Даны 100 целых чисел, принадлежащих интервалу [0; 1000]. Определите количество тех из них, которые ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Главная » Информатика » Помогите с задачей на паскале ... Даны 100 целых чисел, принадлежащих интервалу [0; 1000]. Определите количество тех из них, которые делятся на 7.
Регистрация Забыл пароль