Олимпиада по информатике и роботехнике

Объяснение:

const

 max_elements = 1000;

 a = 1;

 b = 15;

 first_file_name = '1.txt';

 second_file_name = '2.txt';

var

 i, j, n, r:integer;

 p:real;

 ar:array[1..max_elements] of integer;

 f1, f2:text;

begin

 randomize;

 writeln('Input n = ');

 readln(n);

 for i:=1 to n do begin

   ar[i]:=random(b-a+1)+a;

 end;

 assign(f1, first_file_name);

 rewrite(f1);

 for i:=1 to n do begin

   writeln(f1, ar[i]);

 end;

 close(f1);

 assign(f2, second_file_name);

 rewrite(f2);

 for i:=1 to n do begin

   p:=1;

   for j:=1 to i do

     p:=p*ar[j];

   writeln(f2, p:0:0);

 end;

 close(f2);

 readln;

end.

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace zn
{
    class Program
    {
        public static void Main(string[] args)
        {
            int sum = 0;
            int m = 1;
            Console.Write("Введите n > ");
            int n = Convert.ToInt32(Console.ReadLine());
            for(int i=0; i<n; i++)
            {
                Console.Write("Введите число > ");
                int c = Convert.ToInt32(Console.ReadLine());
                if (c.ToString().EndsWith("3") || c.ToString().EndsWith("4"))
                    sum += c;
                if (c % 5 == 0 && c % 3 != 0)
                    m *= c;
            }
            Console.WriteLine("Сумма чисел заканчивающихся на 3 или на 4: " + sum);
            Console.WriteLine("Произведение чисел, делящихся на 5, но не на 3: " + m);
            Console.ReadKey();
        }
    }
}