Сколько натуральных чисел меньше 1000, сумма цифр которых равна 6?
Не знаю, как начать это с помощью Pascal. На Python мой скрипт будет выглядеть примерно так:
a = 1
b = 1000
for i in range(a,b):
........
Я не знаю, как получить доступ к цифрам. Если бы кто-то мог дать мне голову, я мог бы добиться некоторого прогресса отсюда.
Вот решение без ненужного преобразования в строку. Он работает, получая крайнюю правую цифру, добавляя ее значение к аккумулятору Total, а затем удаляя крайнюю правую цифру, выполняя целочисленное деление на 10 и повторяя процесс до тех пор, пока у нас ничего не останется.
var
Value, Digit, Total, NumValues: Integer;
i: Integer;
begin
NumValues := 0;
for i := 1 to 1000 do
begin
Value := i;
Total := 0;
repeat
Digit := Value mod 10;
Total := Total + Digit;
Value := Value div 10;
until Value = 0;
if Total = 6 then
Inc(NumValues);
end;
WriteLn ('I found ', NumValues, ' numbers whose digits add up to six');
ReadLn;
end.
Ваш вопрос в основном заключается в том, "как выполняется цикл for в Pascal"... Просто проверьте документацию, например. здесь: http://pascal-programming.info/lesson4.php#JUMP3
Также я чувствую запах домашней работы. ;)
Не обращая внимания на ехидные комментарии по поводу Pascal (это все еще жизнеспособный язык и живет в основе Delphi, его синтаксис был заимствован для нескольких «современных» языков), этот вопрос на самом деле сложнее, чем можно подумать. Сначала покажу программу, потом объясню.
var
i, j, found, total: integer;
s: string;
begin
found:= 0; // how many numbers whose digits add up to six
for i:= 1 to 1000 do
begin
s:= inttostr (i);
total:= 0;
for j:= 1 to length (s) do
total:= total + ord (s[j]) - ord ('0');
if total = 6 then found:= found + 1;
end;
writeln ('I found ', found, ' numbers whose digits add up to six');
readln
end.
Ключ преобразует номер индекса (i) в строку (это строка «inttostr (i)»), затем перебирает цифры строки и суммирует их.
72из720или725. - person Ingo schedule 19.12.2013