написать программу, которая в последовательности целых чисел находит числа кратные 2, числа кратные 3 и числа кратные 5

Question

написать программу, которая в последовательности целых чисел находит числа кратные 2, числа кратные 3 и числа кратные 5

вова торкунов Ученик (73), закрыт 4 года назад

программа получает на вход целые числа. количество чисел не превышает 100 и изначально не известно. последовательность введенных чисел оканчивается числом 0 (т. е 0- признак окончания ввода, не является членом последовательности) числа по модулю не превышают 1000.
программа на выходе должна вывести оформленные данные в следующем виде:
числа кратные 2: число1,число2,...числоN(где "число" должно быть записано цифрами)
числа кратные 3: число1,число2,...числоN(где "число" должно быть записано цифрами)
числа кратные 5: число1,число2,...числоN(где "число" должно быть записано цифрами)

Answer 1

begin
var a: array of integer;
for var i := 0 to 99 do begin
SetLength(a, Length(a)+1); a[i] := MaxInt;
while abs(a[i]) > 1000 do a[i] := ReadInteger(i+1+'е число =');
if a[i] = 0 then begin SetLength(a, Length(a)-1); break end;
end;
print(#10, 'Числа, кратные 2:');
for var i := 0 to high(a) do if a[i] mod 2 = 0 then print(a[i]);
print(#10, 'Числа, кратные 3:');
for var i := 0 to high(a) do if a[i] mod 3 = 0 then print(a[i]);
print(#10, 'Числа, кратные 5:');
for var i := 0 to high(a) do if a[i] mod 5 = 0 then print(a[i]);
end.

Answer 2

Валера Казбеков - Казахстан Просветленный (33484) 5 лет назад

если тебе щас спецы не ответят задай вопрос позже и не один раз

вова торкуновУченик (73) 5 лет назад

срочняк нужно, завтра сдавать )

Валера Казбеков - Казахстан Просветленный (33484) ну я тебе не подскажу я не программист. Просто спецы могут щас вопрос не увидят и по этому советую вопрос задать позже и не один раз.