Program A; var a,b,c,s:integer; begin write('введите кол-во чисел в последовательности:'); readln(a); for c:=1 to a do begin write('введите число:'); readln(b); if (b mod 10=3) then s:=s+b; write(b,' '); end; writeln('сумма чисел, оканчивающихся на 3=',s); end. с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
program B; var a,b,s:integer; begin write('введите кол-во чисел в последовательности:'); readln(a); for c:=1 to a do b:=random(300)+1; if (b mod 10=3) then s:=s+b; write(b,' '); end; writeln('сумма чисел, оканчивающихся на 3=',s); end. с клавиатуры вводится только кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно. на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
Program A; var a,b,c,s:integer; begin write('введите кол-во чисел в последовательности:'); readln(a); for c:=1 to a do begin write('введите число:'); readln(b); if (b mod 10=3) then s:=s+b; write(b,' '); end; writeln('сумма чисел, оканчивающихся на 3=',s); end. с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
program B; var a,b,s:integer; begin write('введите кол-во чисел в последовательности:'); readln(a); for c:=1 to a do b:=random(300)+1; if (b mod 10=3) then s:=s+b; write(b,' '); end; writeln('сумма чисел, оканчивающихся на 3=',s); end. с клавиатуры вводится только кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно. на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
1
Объяснение: