<span>Первая:
</span>
var
x,y,z:real;
begin
readln(x);
y:=x+2.3;
z:=y/1.2;
writeln(x+y+z);
end.
<span>Вторая:
vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.
Третья:
varv1,v2,s,t:real;beginreadln(v1);readln(v2);readln(s);readln(t);writeln((v1*t)+(v2*t)+s)end.</span>
Const n = 20;
var a: array[1..n] of real;
i: integer;
begin
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if(i mod 3 <> 0) then write(a[i], ' ');
<span>end.
const n = 18;
var a: array[1..n] of integer;
i, max, fir: integer;
begin
max := 1;
fir := 0;
for i := 1 to n do
begin
read(a[i]);
if(fir = 0) and (a[i] > 0) then fir := i;
if(a [i] < 0) and (a[max] < a[i]) then max := i;
end;
i := a[max];
a[max] := a[fir];
a[fir] := i;
for i := 1 to n do
write(a[i], ' ');
<span>end.</span></span>
Будем искать сначала двузначные числа, удовлетворяющие условию задачи.
Обозначим через x и y искомые цифры числа. Очевидно, что x и y должны быть значениями из интервала [1..3].
Тогда xy(5) = yx(4) ⇒ 5*x+y = 4*y+x ⇒ 4*x = 3*y
Очевидно, что x и y должны быть значениями целыми положительными из интервала [1..3] и, следовательно, двузначных чисел, удовлетворяющих условию задачи, не существует.
Рассмотрим трехзначные числа, обозначив старшую цифру через a:
axy(5) = ayx(4) ⇒ 5*5*a+5*x+y = 4*4*a+4*y+x ⇒ 9*a+4*x = 3*y
Пусть a=1, тогда:
9+4*x = 3*y
Так как ни x, ни y не являются старшой цифрой, то оба значения могут быть из интервала [0..3].
При x=0 получим подходящее нам значение y=3.
Итак, 103(5) = 5*5+3 = 28(10); 130(4) = 4*4+3*4 = 28(10)
Рассмотрев аналогичным образом x=1;2;3, а также a=2 и a=3, увидим, что других чисел, удовлетворяющих условию, нет.
Ответ: 28