Цикл работает с разными интервалами. Допустим от -1 до 1 будет 2. От 1 до 2 будет 3. От 5 до 11 будет 38.
Объяснение:
program Sum_cifr;
var i, x, a, b, S:integer;
begin
readln(a, b);
S:=0;
for i:= a to b do
begin
x:=Abs(i); // делаем положительным число, если оно отрицательное
while x>0 do // цикл, в котором будет число
begin //будет разбиваться на цифры
S:= S+(x mod 10); // отсекаем у числа последнюю цифру
x:= x div 10; // и складываем, а после убираем последнюю
// цифру у самого числа
end;
end;
writeln(S)
end.
а) 38
б) 42
в) 73
Объяснение:
а) 26 в 16 с.сч. = 38 в 10 с.сч.
26 в 8 с.сч. = 22 в 10 с.сч.
11101 в 2 с.сч. = 29 в 10 с.сч.
Под буквой А правильным ответом будет 38
б) 28 в 16 с.сч. = 40 в 10 с.сч.
47 в 8 с.сч = 39 в 10 с.сч.
101010 в 2 с.сч = 42 в 10 с.сч.
Под буквой Б правильным ответом будет 42
в) 49 в 16 с.сч = 73 в 10 с.сч.
102 в 8 с.сч. = 66 в 10 с.сч.
1000111 в 2 с.сч = 71 в 10 с.сч.
Под буквой В правильным ответом будет 73
Надеюсь , удачи!
P.S. если моё решение было действительно полезным и в полной мере закрыло вопрос, отметь его Лучшим !)
Program expr;
var a, b, ans: real;
begin
write('Enter a: '); readln(a);
write('Enter b: '); readln(b);
ans := (a ** 3 * b ** 2) / (2.25 ** 0.5);
writeln('Answer is: ', ans)
end.
Удачи))