Как найти количество кратных чисел в паскале

Просмотров 2.3к. Обновлено 15 октября 2021

В диапазоне натуральных чисел от 2 до 99 определить, сколько из них кратны любому из чисел в диапазоне от 2 до 9.

Необходимо проверить кратность каждого числа сначала числу 2, потом 3 и т.д. до 9 включительно. Введем массив с восьмью ячейками. В первую будем записывать количество чисел кратных 2, во вторую — 3 и т.д.

  1. Записать в ячейки массива нули.
  2. Перебирая числа от 2 до 99,
    1. для каждого из них в цикле от 2 до 9
      1. проверять кратность числа внешнего цикла числу внутреннего.
      2. Если второе число делит нацело первое, значит увеличивать на 1 значение в соответствующей ячейке массива.
  3. Вывести индексы и соответствующие им значения из массива.

Pascal

найти количество кратных чисел паскаль



var

    a: array[2..9] of byte;

    i,j: byte;

begin

    for i:=2 to 9 do a[i] := 0;

    for i:=2 to 99 do

        for j:=2 to 9 do

            if i mod j = 0 then

                a[j] := a[j] + 1;

    for i:=2 to 9 do

        writeln(i,' - ', a[i]);

end







2 - 49

3 - 33

4 - 24

5 - 19

6 - 16

7 - 14

8 - 12

9 - 11

Язык Си



#include 

main() {

    int a[8], i, j;

    for (i=0; i<9; i++) a[i] = 0;

    for (i=2; i<100; i++)

        for (j=2; j<10; j++)

            if (i%j == 0) a[j-2] += 1;

    for (i=0; i<8; i++)

        printf("%d - %dn", i+2, a[i]);

}

Python

найти количество кратных чисел Python



a = [0]*8

for i in range(2,100):

    for j in range(2,10):

        if i%j == 0:

            a[j-2] += 1

i = 0

while i < len(a):

    print(i+2, ' - ', a[i])

    i += 1







2  -  49

3  -  33

4  -  24

5  -  19

6  -  16

7  -  14

8  -  12

9  -  11

КуМир



алг кратность

нач

  цел таб a[2:9]

  цел j,i

  нц для i от 2 до 9 

    a[i] := 0

  кц

  нц для j от 2 до 99 

    нц для i от 2 до 9

      если mod(j,i) = 0 то a[i]:=a[i]+1 все

    кц

  кц

  нц для i от 2 до 9 

    вывод i, " - ", a[i], нс

  кц

кон

Basic-256



dim a(8)

for i=2 to 99

	for j=2 to 9 

		if i%j = 0 then

			a[j-2] = a[j-2] + 1

		endif

	next j

next i

 
for i=0 to 7

	print (i+2) + " - " + a[i]

next i

Источник

a3671501

0 / 0 / 0

Регистрация: 14.05.2014

Сообщений: 7

1

14.05.2014, 22:47. Показов 9756. Ответов 7

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Написать программу: Целое число N вводится с клавиатуры. В диапазоне [10;-10] найти сумму и количество чисел, кратных N.

Добавлено через 2 часа 13 минут
Вот что сделал

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

uses crt;
var a,i,k:integer;
begin
write('Введите число: ');
read(a);
writeln('Числа, кратные ',a);
k:=0;
for i:=-10 to 10 do
if i mod a=0 then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Таких чисел нет')
end.

вопрос как из результата найти сумму чисел?



0

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

 14.05.2014, 22:47

Ответы с готовыми решениями:

Найти сумму и количество всех двузначных чисел кратных пяти
Не могу решить задачу, 4 пары сидел над ней, помогите.
Условие: Найти сумму и количество всех…

Ввести 10 чисел. Найти сумму каждого пятого и количество кратных пяти
Ввести 10 чисел. Найти сумму каждого пятого и количество кратных пяти

Определить количество отрицательных чисел и сумму чисел, кратных трем
1 задание) ​Задан целочисленный массив К (N). Ввести массив в столбец, а вывести в строку с…

Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3
Подсчитать количество чисел, принадлежащих промежутку и сумму чисел, стоящих на местах, кратных 3.

7

399 / 378 / 408

Регистрация: 14.09.2013

Сообщений: 1,204

15.05.2014, 00:59

2

a3671501, по вашему алгоритму , сумма всегда будет равна = 0 , что тут считать?
//ну если ее дописать конечно,но я сказал на перед



0

tegauss

30 / 24 / 27

Регистрация: 06.05.2014

Сообщений: 161

15.05.2014, 01:08

3

Лучший ответ Сообщение было отмечено a3671501 как решение

Решение

a3671501, нужно просто считать сумму в цикле, например так:

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

uses crt;
var a,i,k,sum:integer;
begin
write('Введите число: ');
read(a);
writeln('Числа, кратные ',a);
k:=0;
sum := 0;
for i:=-10 to 10 do
if i mod a=0 then
 begin
  k:=1;
  sum := sum + i;
  write(i,' ');
 end;
if k=0 then write('Таких чисел нет')
write('sum = ', sum);
end.



0

399 / 378 / 408

Регистрация: 14.09.2013

Сообщений: 1,204

15.05.2014, 01:21

4

tegauss, ну и толк? сумма всегда будет 0



0

30 / 24 / 27

Регистрация: 06.05.2014

Сообщений: 161

15.05.2014, 01:42

5

Svager, хотел спросить почему, а потом дошло Нда, непродуманное задание..

Там топикстартер еще количество кажется хотел найти..



0

399 / 378 / 408

Регистрация: 14.09.2013

Сообщений: 1,204

15.05.2014, 07:45

6

tegauss, кол-стово он нешел



0

0 / 0 / 0

Регистрация: 14.05.2014

Сообщений: 7

15.05.2014, 16:19

 [ТС]

7

А как сделать чтобы считало сумму и количество кратных N?



0

399 / 378 / 408

Регистрация: 14.09.2013

Сообщений: 1,204

15.05.2014, 17:13

8

a3671501, аааааа .Вам tegauss написал всю программу полностью, еще раз говорю сумма будет 0 всегда.



0

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

 15.05.2014, 17:13

Помогаю со студенческими работами здесь

Составте программу, которая найдет сумму чисел, кратных 2 и произведение чисел, кратных 5
p.s.нужно использовать паскальABC p.s.s.можно использовать if,while,for.
1.Составте программу,…

Найти среднее арифметическое чисел с промежутка [A, B], и количество неположительных чисел на местах кратных 3
Осуществить ввод и вывод исходного одномерного массива; выполнить необходимые действия и вывести…

Найти сумму натуральных чисел от 2 до 56, кратных 5
Найти сумму натуральных чисел от 2 до 56, кратных 5.

Найти сумму чисел, кратных пяти
Напишите, а то я туплю конкретно

Напишите программу, которая в последовательности натуральных…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

8

Источник

Формулировка задачи:

3)В массиве A, состоящем из N целых чисел определить количество элементов, кратных заданному числу.

вот еще такие задачки, помогите пожалуйста (

Код к задаче: «Определить количество элементов, кратных заданному числу»

textual

Листинг программы 

Var A:array[1..100] of integer;
    i,x,k,n:integer;
Begin
    Randomize;
    write('Введите размерность: ');readln(n);
    write('Введите число: ');readln(x);
    k:=0;
    For i:=1 to n do
     Begin
      A[i]:=random(11)-5;
      write(A[i]:3);
      if A[i] mod x = 0 then inc(k);
     End;
    writeln;
    writeln('Кол-во элементов кратные ',x,': ',k);
    readln;
End.

Источник
Определение КОЛИЧЕСТВО элементов, КРАТНЫХ 8.
Задача 1

Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, КРАТНЫХ 8. В последовательности всегда имеется число, кратное 8. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – КОЛИЧЕСТВО элементов, КРАТНЫХ 8.

Решение:

Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, кратный 8 (остаток от деления на 8 равен нулю), то мы плюсуем 1 к нашему количеству.

var a, i, quantity, n: integer;
begin
  read(n);
  quantity:=0;
  for i:=1 to n do
  begin
    read(a);
    if a mod 8 = 0 then
      quantity:= quantity + 1;
  end;
  writeln(quantity);
end.

Определение КОЛИЧЕСТВО элементов, оканчивающихся на 8.

Задача 2

Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, оканчивающихся на 8. В последовательности всегда имеется число, оканчивающееся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – КОЛИЧЕСТВО элементов, оканчивающихся на 8.

Решение:

Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, оканчивающийся на 8 (остаток от деления на 10 равен 8), то мы плюсуем 1 к нашему количеству.

var a, I, quantity, n: integer;
begin
  read(n);
  quantity:=0;
  for i:=1 to n do
  begin
    read(a);
    if a mod 10 = 8 then
      quantity:= quantity + 1;
  end;
  writeln(quantity);
end.

Определение КОЛИЧЕСТВО элементов, БОЛЬШИХ 10.

Задача 3

Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, больших 10. В последовательности всегда имеется число, который больше 10. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – КОЛИЧЕСТВО элементов, оканчивающихся на 8.

Решение:

Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который больше 10, то мы плюсуем 1 к нашему количеству.

var a, i, quantity, n: integer;
begin
  read(n);
  quantity:=0;
  for i:=1 to n do
  begin
    read(a);
    if a > 10 then
      quantity:= quantity + 1;
  end;
  Writeln(quantity);
end.

Определение КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7.

Задача 4

Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7. В последовательности всегда имеется число, которое БОЛЬШОЕ 15 и КРАТНОЕ 7 Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7.

Решение:

Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который больше 15 И кратное 7 (остаток от деления на 7 равен 0), то мы плюсуем 1 к нашему количеству.

var a, i , quantity, n: integer;
begin
  read(n);
  quantity:=0;
  for i:=1 to n do
  begin
  read(a);
  if (a > 15) and (a mod 7 = 0) then
    quantity:= quantity + 1;
  end;
  writeln(quantity);
end.

ЕГЭ по информатике 2021 — Задание 27 (Заключительное)

Привет! Сегодня мы рассмотрим последнее 27 задание из ЕГЭ по информати…

Категория: Информатика  Подкатегория: ЕГЭ

Дата: 28-03-2021 в 20:51:02
3

Источник


5

Даны четыре целых числа. Найти количество чисел кратных пяти. Составить программу в паскале.Заранее спасибо!!!

1 ответ:



0



0

Простая реализация без массива
uses crt;
var a, b, c, d, k: Integer;
begin
readln(a, b, c, d);
clrscr;
if (a mod 5) = 0 then inc(k);
if (b mod 5) = 0 then inc(k);
if (c mod 5) = 0 then inc(k);
if (d mod 5) = 0 then inc(k);
writeln(k);
end.

Читайте также

Функция памяти компьютера: Хранение информации
Функция процессора: обработка данных
Ввод данных: клавиатура, сканер
Вывод данных: монитор, принтер
Все внешние устройства обмениваются..: устройства ввода и вывода, наверно.

Cущественное свойство — быстро обрабатывает информацию из 0 и 1.
Не существенное свойство — прекрасная полочка для оптических дисков, флэшек и губной помады.

Польза сада — плоды, не очень существенное — это красота цветущих яблонь (часто всё наоборот….)

Скворечник — дом для скворца и часто место питания кошки.

Полезное свойство текстового редактора в компании с принтером и сканером — хорошая издательская ситстема , и если она хорошо работает , то у нее нет не существенный прнизнаков (это мое личное мнение!!)

Хорошо, что перевозит людей, и несущественно, что загрязняется атмосфера города (но тут ничего не сделаешь, лошадей на всех не хватит…)

Полусумма кубов это сложение двух кубов деленных на 2 или на половину (с³+d³)/2

Program n;
var
a, b, i: integer;
begin
b:= 0;
for i:=1 to 4 do
  begin
  readln(a);
  if a > b then
  b:=a;
  end;
writeln(‘Наибольшее: ‘ + b);
end.

Как это работает?
Объявляются три целочисленные (interger) переменные:
a — вводимое число
b — самое большое число
i — счётчик цикла
После запуска программы переменной b присваивается значение 0 (чтобы было с чем сравнивать при первом значении)
Запускается цикл for с счётчиком i
Каждый раз цикл просит ввести пользователя число (а)
Дальше проверяется условие, если введённое число a больше числа, которое записано как самое большое (if a>b)
Если ведённое число больше, чем самое большое, то переменной b присваивается значение a
И так пока цикл не закончится
Затем выводится переменная b, в которой хранится самое большое из введённых чисел.

Выпадение каждого шара — событие равновероятное, значит на каждый номер приходится одинаковое количество бит.
Всего 32 шара, значит на сообщение о каждом шаре приходится 5 бит, т.к. 2^5 = 32
В лотерее выпадает шесть шаров, сообщение о каждом шаре содержит 5 бит, значит сообщение о шести шарах содержит 5*6=30 бит.
Ответ: 30 бит

Источник

Понравилась статья? Поделить с друзьями:
  • Как найти угол между прямыми пример
  • Как найти коэффициент рентабельности оборотных средств
  • Как найти чувствительность экрана
  • Как на айфоне найти фотопленку
  • Как составить шарж