Сна паскале.. даны 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

204

212

Посмотреть ответы 2

Ответы на вопрос:

lerikonusheva

Информатика

4,4(98 оценок)

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.вот держи выводит количество цифр

solopova08

Информатика

4,7(62 оценок)

Pascalabc.net 3.4.0, сборка 1670 от 23.05.2018 внимание! если программа не работает, обновите версию! function hextodec(n: string): string; begin var s: ='0123456789abcdef'; var (p,pa): =(0,1); foreach var c in n.reverse do begin p+=pa*(pos(c,s)-1); pa*=16 end; result: =p.tostring end; begin var s: =readlnstring('введите 16-ричное число: '); hextodec(s).println end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.