Вводится N чисел. Вывести на экран те числа, делителем которых является целое число A

@ArtemK · Регистрация: 07.10.2012

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

Вот решение задачи на Паскале.

Pascal

Program chisla;
uses crt;
var a,b,i,c:integer;
begin
clrscr;
for i:=a to b do
writeln ('Введите числа: ');
readln (a);
writeln ('Введите число: ');
readln (b);
if (c= a mod b) then begin
writeln ('Числа ', a, ' делятся без остатка');
end
else begin
writeln ('Числа ', a, ' делятся с остатком');
end;
readkey;
end.

Если ввести, например пять чисел, 50 25 15 14 10, затем число 5, то он должен просмотреть все числа и вывести, в данном примере, числа 50 25 15 10. Но в составленной мною программе он считает только первое число, а остальные не считает. Как сделать так, чтобы он ВСЕ числа считал и выводил только те, которые делятся без остатка на введенное далее число?

@ermolay · 19.10.2012, 16:26

если программа должна просмотреть все числа, запомнить их и потом вывести все числа, кратные данному А, то нужно использовать массив:

Pascal

program chisla;
uses
  crt;
const
  nmax=100;
var
  i,n,a,k: integer;
  ar: array[1..nmax] of integer;
begin
  clrscr;
  writeln('Сколько чисел будем проверять? ');
  readln(n);  
  writeln('Введите число А - делитель: ');
  readln(a);
  for i:=1 to n do
  begin
    write('Введите ',i,'-е число: ');
    readln(ar[i]);
    if ar[i] mod a=0 then inc(k);
  end;
  if k=0 then writeln('Нет чисел, делителем которых является число A.')
  else
    writeln('Числа, делителем которых является число А: ');
    for i:=1 to n do
      if ar[i] mod a=0 then write(ar[i],' ');
  readkey;
end.

@ArtemK · 19.10.2012, 16:31 **[ТС]**

Сообщение от ermolay

если программа должна просмотреть все числа, запомнить их и потом вывести все числа, кратные данному А, то нужно использовать массив:

Pascal

program chisla;
uses
  crt;
const
  nmax=100;
var
  i,n,a,k: integer;
  ar: array[1..nmax] of integer;
begin
  clrscr;
  writeln('Сколько чисел будем проверять? ');
  readln(n);  
  writeln('Введите число А - делитель: ');
  readln(a);
  for i:=1 to n do
  begin
    write('Введите ',i,'-е число: ');
    readln(ar[i]);
    if ar[i] mod a=0 then inc(k);
  end;
  if k=0 then writeln('Нет чисел, делителем которых является число A.')
  else
    writeln('Числа, делителем которых является число А: ');
    for i:=1 to n do
      if ar[i] mod a=0 then write(ar[i],' ');
  readkey;
end.

Про массив мне известно, спасибо!
Но мне нужно это сделать без массива. А как... Я не знаю.

@ermolay · 19.10.2012, 16:40

Сообщение от ArtemK

нужно это сделать без массива

без массива программа не сможет сначала запомнить числа, потом вывести нужные. Вот так она будет рассматривать каждое введенное число по отдельности:

Pascal

program chisla;
uses
  crt;
var
  i,n,a,b: integer;
begin
  clrscr;
  writeln('Сколько чисел будем проверять? ');
  readln(n);  
  writeln('Введите число А - делитель: ');
  readln(a);
  for i:=1 to n do
  begin
    write('Введите ',i,'-е число: ');
    readln(b);
    if b mod a=0 then writeln('Число ',b,' делится на ',a,' без остатка')
      else writeln('Число ',b,' не делится на ',a,' без остатка');
  end;
  readkey;
end.

	19.10.2012, 16:40