Решение задачи в файле. Если есть какие-то вопросы, пиши ниже.
Constn=10;m=10;
var
a:array[1..n,1..m]of integer;
i,j,s:integer;
begin
for i:=1 to n do
begin
writeln; s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
if i mod 2<>0 then
s:=s+a[i,j];
end;
if i mod 2<>0 then
writeln(s:6);
end;
<span> end.</span>
Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.
# Python 3.X
from random import randint
def randchar():
while True:
ret = randint(65, 123)
if not 90 < ret < 97:
return chr(ret)
s = input()
for c in s:
print(c, randchar(), randchar(), sep='', end='')