)) программа на паскале.ввести натуральные числа и их количество. найти и вывести количество чисел, кратных трем и окачивающихся на 5. если что то непонятно, пишите, уточню.

Var   n,i,k,d: integer; begin   write('количество чисел='); read(n);   k: =0;   writeln('вводите числа, после каждого числа нажимайте enter');   for i: =1 to n do begin       read(d);       if (d mod 3 = 0) and (d mod 10 = 5) then inc(k)   end;   writeln('количество чисел, удовлетворяющих условию, равно ',k) end. тестовое решение: количество чисел=8 вводите числа, после каждого числа нажимайте enter 537 125 5 35 999 3 1005 75 количество чисел, удовлетворяющих условию, равно 2

Программа точно по условию: var a,d,s: integer; begin write('искомые числа: '); for a: = 300 to 600 do       begin       s: =a+1;       d: =a div 2;       while d> 1 do             begin             if a mod d = 0 then s: =s+d;             d: =d-1             end;       if s = 50 then write(' ',a);       end end. программа, разумеется, не выдаст ни одного числа, т.к. каждое число делится на себя и на единицу. то есть сумма делителей всегда будет больше 301. если не брать в расчёт само число и единицу, то программа будет выглядеть так: var a,d,s: integer; begin write('искомые числа: '); for a: = 300 to 600 do       begin       s: =0;       d: =a div 2;       while d> 1 do             begin             if a mod d = 0 then s: =s+d;             d: =d-1             end;       if s = 50 then write(' ',a);       end end. результат работы программы: искомые числа: 301 481 589