Вход
Быстрая регистрация
Если вы у нас впервые: О проекте FAQ
1

Как записать программу на языке Паскаль, смотри условие?

Кракенн [3.1K] 2 недели назад

Определить сколько чисел кратны числу х? Помогите на языке Паскаль программу записать

0

Неполное условие задачи. Не сказано, в каком виде задаются числа. Если просто вводятся с клавиатуры, то нужно ли использовать массив? Количество чисел вводит пользователь или есть какой-то признак окончания ввода? Вот вариант на мое усмотрение без массива:

Var

a,x,k,n,i:integer;

Begin

Write('Введите количество чисел: ');

Read(n);

Write('Введите x: ');

Read(x);

k:=0;

for i:=1 to n do

begin

Write('Введите ',i,' число: ');

Read(a);

if a mod x=0 then k:=k+1;

end;

Writeln('Количество чисел кратных ',x, ' = ',k);

End.

автор вопроса выбрал этот ответ лучшим
2

Давно я на Паскале программировал.

Нужно описать переменные. Описать массив натуральных чисел. Описать константу Х.

Описать число-счётчик, целое. Задать подпрограмму-счётчик.

Завести массив чисел, потом выполнить фунцию деления без остатка всех чисел массива на константу в цикле и сравнить результат деления с результатом обычного деления. Если результат деления равен в обоих случаях, счётчик увеличиваем на единицу.

Вроде так.

Вот есть массив из двух чисел и число Х.

К примеру массив из двух чисел {4;7} и Х=2

Делим 4 на 2 с округлением и просто четыре на два. Равно. Счётчик прибавляется.

Делим 7 на 2 без остатка, получаем 3. Делим 7 на 2 получаем 3.5. Счётчик не тикает.

1

Исходный текст программы:

program KPAT;

var x,n,i: integer;

var a: array [1..5] of integer;

begin

a[ 1 ] := 3; {задаём начальные значения элементов массива}

a[ 2 ] := 5;

a[ 3 ] := 10;

a[ 4 ] := 6;

a[ 5 ] := 9;

x := 5; {задаём значение x}

n := 0; {счётчик элементов кратных x}

for i:=1 to 5 do {перебор элементов массива }

if a[i] mod x=0 then n:=n+1; {увеличиваем счётчик если a[i] кратно x}

writeln ('количество элементов массива кратных ',x,' равно ',n);{результат}

end.

Пример вывода:

количество элементов кратных 5 равно 2

Вид программы в онлайн компиляторе

Знаете ответ?
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее..
регистрация