<span>1. </span><span>Private Sub CommandButton1_Click() </span><span>
<span>Dim n, s As Single </span>
<span>n = Val(TextBox1.Text) </span>
<span>If (n < 500) Then s = n </span>
<span>If ((n >= 500) And (n <= 1000)) Then s = n
* 0.95 </span>
<span>If ((n > 1000) And (n <= 10000)) Then s =
n * 0.93 </span>
<span>If (n > 10000) Then s = n * 0.91 </span>
<span>MsgBox (s) </span>
<span>End Sub</span></span>
Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] = 'а') then a[i] := 'и';
writeln(a);
<span>end.</span>
Каждая последующая цифра умножается на 3.
1392781243729...
А) (п ^ в ^ с)-><span>ж
б)(т(отр.) v д(отр.)^ л)-></span><span>л(отр)
-> если что, это стрелка
</span>
Program prog;
uses crt;
var a,b,v:integer;
begin
clrscr;
write('Возраст Антона = ');
readln(a);
write('Возраст Бориса = ');
readln(b);
write('Возраст Виктора = ');
readln(v);
writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.');
if (b>a)and(b>v) then writeln('Борис старше всех.');
if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');
if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');
if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');
end.