Question

Найти сумму чисел, оканчивающихся на 9 (Паскаль): дана последовательность из N чисел, количество чисел вводится с клавиатуры. Числа выбираются из промежутка [ 10; 50 ] .

Answer 1

var i,M,K,N:integer;

begin

Readln(N);

K:=0;

for i:=1 to N do

begin

readln(M);

if M mod 10 = 9

then

begin

K:=K + M;

end;

end;

write(K);

end.

Answer 2

Для нахождения суммы чисел, оканчивающихся на 9, в данной последовательности, вы можете использовать следующий код на Pascal:

pascalCopy code
program SumNumbersEndingWith9;

var
  N, Number, Sum: integer;

begin
  Sum := 0;

  // Введите количество чисел в последовательности
  write('Введите количество чисел в последовательности: ');
  readln(N);

  // Цикл для ввода чисел и вычисления суммы
  for var i := 1 to N do
  begin
    // Ввод числа
    write('Введите число: ');
    readln(Number);

    // Проверка на окончание на 9
    if (Number >= 10) and (Number <= 50) and (Number mod 10 = 9) then
      Sum := Sum + Number;
  end;

  // Вывод суммы чисел, оканчивающихся на 9
  writeln('Сумма чисел, оканчивающихся на 9: ', Sum);
end.

Этот код позволит вам ввести количество чисел в последовательности, а затем последовательно вводить сами числа. Программа проверит, оканчивается ли число на 9 и находится ли оно в заданном диапазоне [10; 50]. Если оба условия выполняются, число будет добавлено к сумме. По завершении ввода всех чисел программа выведет сумму чисел, оканчивающихся на 9.