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
begin
var s := ReadlnString;
var i := Pos(' ', s);
if i > 0 then
begin
var c := ReadlnChar('Пробел найден. Чем заменить?');
s[i] := c;
s.Println
end
else Println('Пробел на обнаружен')
end.