#include <iostream>
using namespace std;
int main()
{<span>
int zap=0;
max=0;
mas[30];</span><span>
int i;</span><span>
for(i=0; i<30; i++)</span><span> cin >> mas[i];</span>
<span> for(i=0; i<30; i++)</span><span>
if(max<mas[i] && mas[i]%3==0 && mas[i]%5==0)
{</span><span> max=mas[i];</span><span> zap=i;</span><span> }</span>
<span> cout << "max :" << max << "nomer :" << zap << '\n';</span><span>
system("pause>>null");</span><span>
return 0;
</span><span>}</span>
<u><em>PascalABC.Net:</em></u>
procedure GetData(var a,b:longint; var k:char);
{ ввод исходных данных }
begin
Write('Введите через пробел натуральные границы диапазона: ');
Readln(a,b);
Write('Введите искомую цифру: ');
Readln(k)
end;
procedure Summa(a,b:longint;k:char;var s:longint);
{ подсчет суммы чисел из интервала [a,b],
содержащих цифру k }
var
i:integer;
ci:string;
begin
s:=0;
for i:=a to b do begin
Str(i,ci);
if Pos(k,ci)>0 then s:=s+i
end
end;
var
a,b,sum:longint;
k:char;
begin
GetData(a,b,k);
Summa(a,b,k,sum);
Writeln('Сумма чисел, содержащих цифру ',k,' равна ',sum)
end.
<em><u>Тестовое решение:</u></em>
Введите через пробел натуральные границы диапазона: 50 150
Введите искомую цифру: 6
Сумма чисел, содержащих цифру 6 равна 1589
80 97 115 115 119 111 114 100
или же если в 16ричной:
50 61 73 73 77 6F 72 64
<span>роби раз на тиждень шкоди не буде,
делай раз в неделю вреда не будет</span>