1)
var
i, A, B, sum: integer;
begin
sum := 0;
read(A, B);
for i := A to B do
begin
write(i, ' ');
sum := sum + i;
end;
writeln;
write(sum);
end.
2)
var
i, N, count, num: integer;
begin
count := 0;
read(N);
for i := 1 to N do
begin
read(num);
if (num mod 4 = 0) then count := count + 1;
end;
if (count = 0) then
write('NO')
else
write(count);
end.
3)
var
i, a, b, c, d: integer;
begin
read(a, b, c, d);
for i := a to b do
begin
if (i mod d = c) then write(i, ' ');
end;
end.
Программа для решения задачи:
var s:string; i,k,n:integer;
begin
s:='acacabbababaaaabacbb';
k:=0;
n:=length(s);
for i:=1 to n div 2 do
if s[i]<>s[n+1-i] then k:=k+1;
writeln(' количество замен = ',k);
<span>end.
количество замен = 9
</span>
1) 1, 2)1, 3)34, 4)2, 5)наложение, 6)рисовать, писать, подчеркивать, клей карандаш, 7)незнаю сорри
1) 32 (в 10) = 100000 (в 2)
2) 103 (в 6) = 37 (в 10)
3) 107 (в 10) = 6B (в 16)