Укажите результат выполнения следующего алгоритма: в названии вулкана уничтожается каждый третий символ, - id2054253620220817 от kurbatovmaximp08xa1 17.08.2022 10:48

Question

Информатика: Укажите результат выполнения следующего алгоритма: в названии вулкана уничтожается каждый третий символ, затем слово переворачивается и опять уничтожается каждый третий символ. Эти действия повторяются до тех пор, пока не останется два символа. слово - эйяфьятлайокудль а. ТЬ б. ЬТ в. ЙТ г. среди ответов нет верного

kurbatovmaximp08xa1 · Accepted Answer

Const
nmax = 99;

var
i, n, k, s: integer;
a: array[1..nmax] of integer;

begin
Randomize;
Write('Введите количество элементов массива (1-99)');
Readln(n);
Write('Введите число k ');
Readln(k);
Writeln('Исходный массив');
s := 0;
for i := 1 to n do
begin
    a[i] := Random(98) + 1;
    Write(a[i]:3);
    if (a[i] mod k) = 0 then s := s + a[i]
end;
Writeln(#13#10, 'Сумма элементов, кратных ', k, ' равна ', s)
end.

Тестовое решение:

Введите количество элементов массива (1-99)12
Введите число k 3
Исходный массив
34 63 18 81 91 83 83 80 10 59 81 74
Сумма элементов, кратных 3 равна 243

MOGZ ответил