Информацию, достаточную для решения поставленной задачи, называют полной.
Var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:5:2);
end.
Пример:
<span>R = 3
V = 113.10</span>
//прога на Pascal`е
<span>var
</span><span> a : longint;
</span><span>begin
</span><span>write ('Введите кол-во минут: ');
</span><span>read(a);
</span><span>write (a, ' минут{ы) - это ', (a div 60) : 3, ' ч. ', (a mod 60) : 2, ' мин.');
</span><span>end.</span>
Во вложении........................................................................
Самый простой вариант - подсчитать сумму четных и нечётных через цикл, в котором берём остатки от деления.
Можно начать с конца и соответственно начать подсчитывать сумму только от первого числа с конца не равного 0. Подсчитываем через целочисленное деление на круглое число и нахождение остатка при деление на один. Данные, чередуя, прибавляем к разным переменным(пусть будут x1 и x2).
Затем проверяем остаток от деления одной переменной на другую. Если 0 - "Yes", иначе - "No"
For i=5 downto 1 do
If i Mod 2 = 1 then
a:= a+n div (10^(i-1)) mod 10
Else
B=B+ div (10^(i-1)) mod 10;