Предмет: Информатика,
автор: lostgamer
Паскаль
Среди 8 чисел, введённых с клавиатуры, выписать кратные A
Ответы
Автор ответа:
1
const n=8;
var
b: array[1..n] of integer;
a,i: integer;
begin
readln(a);
for i:=1 to n do readln(b[i]);
for i:=1 to n do if b[i] mod a=0 then writeln(b[i]);
end.
если нужно без массива, напишите
var
b: array[1..n] of integer;
a,i: integer;
begin
readln(a);
for i:=1 to n do readln(b[i]);
for i:=1 to n do if b[i] mod a=0 then writeln(b[i]);
end.
если нужно без массива, напишите
bezzubikkk:
написать программу или просто объяснить? там будет через цикл while, немного изменится алгоритм ввода и вывода чисел
var
a,x,n: integer;
begin
readln(a)
n:=1;
while n<=8 do begin
readln(x);
if x mod a=0 then writeln(x);
n:=n+1;
end;
end.
a,x,n: integer;
begin
readln(a)
n:=1;
while n<=8 do begin
readln(x);
if x mod a=0 then writeln(x);
n:=n+1;
end;
end.
Эта программа делает другое(неправильно наверное)
что выводит?
он повторяет числа которые я ввожу
мне с циклами надо
он должен повторять только те числа, которые кратны А, если так выполняет, то все правильно; while это и есть цикл
тогда только через массив наверное можно
ок спс
пж
Похожие вопросы
Предмет: Физика,
автор: arsene44
Предмет: Алгебра,
автор: makoviyvova1000
Предмет: Литература,
автор: rebzsy
Предмет: Физика,
автор: умоляюсрочно