Человек загадал некое целое положительное число n. Определите, возможно ли сделать это число кратным - id1672351020220212 от morozovnikitamotop 12.02.2022 08:32

Question

Информатика: Человек загадал некое целое положительное число n. Определите, возможно ли сделать это число кратным 8, при условии что разрешается изменить порядок цифр в числе. Заметьте, что полученное число не должно содержать ведущих нулей (которые находятся левее первой ненулевой цифры) в своей записи. Если невозможно сделать заданное число кратным 8, выведите одно целое число 1. Иначе, выведите число, кратное 8 и может быть образовано из n по возможности изменения порядка цифр. Если существует несколько правильных

morozovnikitamotop · Accepted Answer

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
  begin
   A[i] := 1+random(n);
    Write (A[i]:4);
  end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
  begin
   if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
   Write (A[i]:4);
end;
ReadLn;
end.
Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1

Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1

MOGZ ответил