Программа просит ввести пользователя число, длину генерируемой последовательности. Затем создается массив нужной длины, заполняется значениями от 0 до 50. Затем во втором цикле просматривается каждый элемент массива, - если он кратен 5, то число выводится на экран и суммируется.
В конце программа выводит итоговую сумму найденных элементов.
Всего различных вариантов расставить 5 букв на 5 мест равно 5!=120. Из них нужно выкинуть те варианты, где две гласные стоят рядом.
В наборе всего две гласные, поэтому можно просмотреть позиции, где они могут стоять: (1,2), (2,3), (3,4), (4,5) - 4 варианта позиций. Число расставить их друг относительно друга равно 2!=2 (ЕА, АЕ).
При фиксированной расстановке гласных букв остается 3 места, на которые можно расставить 3 согласные буквы. Это можно сделать Таким образом, количество неподходящих вариантов равно 4*2*6=48.
Значит, число подходящих вариантов равно 120-48=72.
Программа:
{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}
{Copyright (c) 1993-2017 by Florian Klaempfl and others}
{Target OS: Linux for x86-64}
program test;
Uses Math;
var
A : array of integer;
N, S, i : integer;
begin
Randomize;
S := 0;
write('Укажите длину последовательности: ');
Readln(N);
{Генерация и печать массива}
SetLength(A, N);
for i := 1 to N do begin
A[i] := Random(50);
write(A[i], ' ');
end;
writeln; writeln('------------------------------');
for i := 1 to N do
{Определение кратности элемента массива числу 5}
if A[i] mod 5 = 0 then begin
{Вывод на экран этого числа}
write(A[i], ' ');
{Подсчет суммы чисел}
S := S + A[i];
end;
writeln;
{Вывод на экран суммы}
writeln('Сумма - ', S);
end.
Объяснение:
Программа просит ввести пользователя число, длину генерируемой последовательности. Затем создается массив нужной длины, заполняется значениями от 0 до 50. Затем во втором цикле просматривается каждый элемент массива, - если он кратен 5, то число выводится на экран и суммируется.
В конце программа выводит итоговую сумму найденных элементов.
Результат выполнения программы:
72
Объяснение:
Всего различных вариантов расставить 5 букв на 5 мест равно 5!=120. Из них нужно выкинуть те варианты, где две гласные стоят рядом.
В наборе всего две гласные, поэтому можно просмотреть позиции, где они могут стоять: (1,2), (2,3), (3,4), (4,5) - 4 варианта позиций. Число расставить их друг относительно друга равно 2!=2 (ЕА, АЕ).
При фиксированной расстановке гласных букв остается 3 места, на которые можно расставить 3 согласные буквы. Это можно сделать Таким образом, количество неподходящих вариантов равно 4*2*6=48.
Значит, число подходящих вариантов равно 120-48=72.