Паскаль:
<span>const pi=3.14;
var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:4:1);
end<span>.
Пример:
</span><span>R = 4
V = 267.9</span></span>
Оба искомых числа должны лежать в промежутке от 36 (100 в 6-ричной записи) и 215 (555 в 6-ричной записи) и давать в сумме 259 (1111 в 6-ричной записи), т.е., a+b=259 => a=259-b,
Минимальное а, для которого все эти условия выполняются, равно 44, при b=215.
Очевидно, что остальные пары выглядят так: (45, 214), (46, 213), ... (215, 44), таких пар будет 172. Поскольку пары, отличающиеся только порядком, мы считаем за одну, значит делим на 2: 172/2 = 86.
Ответ 86
* сходится с вашим ответом :)
Какой именно или по какой теме?
Твоя программа не будет работать правильно
Вот как надо
var years, start:real;
begin
years := 0;
start := 10000;
while start < 20001 do
begin
start := start + start / 100 * 5;
years := years + 1;
end;
writeln(years:0:0, ' years');
readln();
end.
<span>4 минуты тому</span>