|
Дата публикации:
Паскаль Програмирования хелп!! . Найти минимальный массив кратный 3 но не кратный 5 массив из 15 целых чисел!
Паскаль Програмирования хелп!! . Найти минимальный массив кратный 3 но не кратный 5 массив из 15 целых чисел!
Вот пример кода на языке Pascal, который находит минимальный массив из 15 целых чисел, кратных 3, но не кратных 5:
program MinArray;
var
arr: array[1..15] of Integer;
i, num: Integer;
begin
num := 0;
for i := 1 to 15 do
begin
repeat
num := num + 1;
until (num mod 3 = 0) and (num mod 5 <> 0);
arr[i] := num;
end;
writeln('Минимальный массив кратный 3, но не кратный 5:');
for i := 1 to 15 do
write(arr[i], ' ');
readln;
end.
Этот код использует цикл repeat...until
, чтобы находить следующее число, которое кратно 3, но не кратно 5. Затем оно добавляется в массив arr
. В конце программы выводится полученный массив на экран.
Надеюсь, это поможет вам!