Ответ: a 25
Я пронумеровал каждую букву и стирал по четыре буквы и четыре номера (одинаковых) до тех пор, пока не получил оставшейся номер 25 и букву a.
<span>uses crt;
var a: array [1..15] of integer;
i: integer;
begin
writeln('Дан массив');
for i:=1 to 15 do
begin
a[i]:=random(41)-20;
write(a[i]:5);
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 15 do
if a[i] mod 2=0 then write(a[i]/2:5:1)
else write(a[i]*3:5);
end<span>.</span></span>
Указывайте <em>ЯП.
</em>Вот решение на Pascal :)
<em>
</em>
var
i, a, b: integer;
p: longint;
begin
readln(a, b);
p := 1;
for i := a to b do
p := p * sqr(i);
writeln(p);
<span>end.
</span>
<u><em>Задача №3</em></u><em><u> </u></em>
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100; a3:=a3 div 10;
a4:=a mod 10;
if (a1+a2)=(a3+a4) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
<u><em>Задача №4</em></u><em><u> </u></em>
Var a,a1,a2,a3:integer;
Begin
Readln(a)
;a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
if (a1=a2) and (a2=a3) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
<u><em>Задача №5</em></u><u><em> </em></u>
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
sqr(a);
if (a>=100) and (a<=999) then begin
a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
end;
if (a>=1000) and (a<=9999) then begin
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100;
a3:=a3 div 10;
a4:=a mod 10;
end;
if (a1=3) or (a2=3) or (a3=3) or (a4=3) then writeln('Условие задачи выполнено') else writeln('Условие задачи не выполнено');
<span>End.</span>