Var s,s1:string;
i:integer;
begin;
readln(s);
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln(s1);
<span>end.</span>
var s,i: integer;
k:array [1..100] of integer;
begin
for i := 1 to 12 do
begin
readln(k[i]);
s :=s + k[i];
end;
writeln('Ответ: ' + s);
end.
<span>Б) =ЕСЛИ(В8<=4; В8*1000; B8*1000+(B8-4)*750)</span>
100=q^2
33+22+16+17=(3*q+3)+(2*q+2)+(1*q+6)+(1*q+7)=7*q+18
q^2=7*q+18
q^2-7*q-18=0
D=√(49+72)=√(121)=11
q1=(7+11)/2=9 q2<0 - не удов. усл. задачи
ответ: 9
На фото внизу решение. Ответ:17