Var
a,b,i,s:integer;
begin
writeln('Введите A:');
readln(a);
writeln('Введите B:');
readln(b);
for i:=a to b do
s:=s+sqr(i);
writeln('сумму всех кводратов целых чисел от A до B включительно:', s);
end.
Максимальное количество 135 символов,они идут по порядку.
Будем искать сначала двузначные числа, удовлетворяющие условию задачи.
Обозначим через 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
Const pi=3.141593;
<span>var R,R1,H,V: real;
</span><span>begin
</span><span> write('радиус нижнего основания R: '); readln(R);
</span><span> write('радиус верхнего основания R1: '); readln(R1);
</span><span> write('высота конуса H: '); readln(H);
</span><span> V:=H*pi*(R*R+R*R1+R1*R1)/3;
</span><span> writeln('объем конуса V = ',V:7:3);
</span><span>end.
</span>радиус нижнего основания R: 10
<span>радиус верхнего основания R1: 15
</span><span>высота конуса H: 8
</span><span>объем конуса V = 3979.351
</span>
Трехпалубный с возможностью вращения можно поставить 18 раз