1. a=10 ( не меняется значение)
2. a=12 (т.к. если 10>5 то а=12)
3. a=3 (если 10<5 то +15 иначе -7)
4. а=22 (тоже самое)
5. a=3 (тоже самое)
6. а=22 (удивительно, но все аналогично)
В каждом горизонтальном слое ядра расположены в форме квадрата, в i-м слое i рядов по i ядер - всего 
.
Первая пирамида: 2 слоя, 
ядер.
Вторая: добавляется еще 3-й слой, всего 
ядер.
Третья: 
ядер.
Четвертая: 
ядер.
39 символов включая знаки препинания и пробелы в итоге.
39*2=78
VB.
Dim i As String
i = InputBox("Введите число")
<span>If i = StrReverse(i) Then MsgBox("Ура! Число " & i & " является палиндромом.")
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
</span><span>
Pascal.
</span>var<span> n, m, p: word
begin
write('Введите число:');
readln(n);
m := n;
p := 0;
while m > 0 do begin
p := p * 10 + m mod 10;
m := m div 10;
end;
if n = p then
writeln(</span>"Ура! Число является палиндромом."<span>)
readln;
end.
</span>
Помог? Жми <u>Лучший</u><span>
</span>
