Question

Как Написать программу, которая в последовательности чисел (количество вводится с клавиатуры) определяет сумму чисел, кратных 9 и оканчивающихся на 3. PascalABC.net

Answer 1

Var
a: array of integer;
i,n, s: integer;
begin
write('Введите количество чисел: ');
readln(n);
SetLength(a, n);
s:=0;
for i:=0 to n-1 do 
begin 
write('Введите число', i+1, ': '); 
readln(a[i]); 
if (a[i] mod 9 = 0) and (a[i] mod 10 = 3) then s:=s+a[i]; 
end;
writeln;
writeln('Исходный массив:');
for i:=0 to n-1 do write(a[i]:5);
writeln;
writeln('Сумма чисел, кратных 9 и оканчивающихся на 3 = ', s:5);
a:=nil;
end.

Answer 2

Вот пример программы на PascalABC.net, которая запрашивает у пользователя количество чисел в последовательности, затем просит ввести сами числа и находит сумму чисел, которые кратны 9 и оканчиваются на 3:

scssCopy code
program SumOfNumbers;

var
  count, num, sum: integer;
  
begin
  writeln('Введите количество чисел в последовательности:');
  readln(count);
  
  sum := 0;
  
  writeln('Введите числа последовательности:');
  for var i := 1 to count do
  begin
    readln(num);
    if (num mod 9 = 0) and (num mod 10 = 3) then
      sum := sum + num;
  end;
  
  writeln('Сумма чисел, кратных 9 и оканчивающихся на 3: ', sum);
end.

Программа использует переменные count, num и sum. Переменная count хранит количество чисел в последовательности, которое запрашивается у пользователя с помощью readln(count). Переменная num используется для хранения каждого введенного числа в последовательности. Переменная sum инициализируется нулем и используется для хранения суммы чисел, которые кратны 9 и оканчиваются на 3.

Цикл for используется для получения чисел последовательности от пользователя и проверки, удовлетворяют ли они условию кратности 9 и оканчивания на 3. Если число удовлетворяет условию, то его значение добавляется к переменной sum. В конце программы выводится значение переменной sum.

После написания программы ее можно скомпилировать и запустить на компьютере, на котором установлена среда разработки PascalABC.net.