Question

Задано натуральные числа от 10 до N. Для натурального числа найти первую цифру и сумму его цифр.Решить на языке PascalABC.NET

Answer 1

var
N,sum,k: integer;
begin
sum:=0;
WriteLn('Введите N');
readln(N);
while N <=9 do
begin
writeln('Введите корректное число (больше или равное 10)');
readln(N);
end;
while N >=10 do
begin
k:= N mod 10;
N:= N div 10;
sum:= sum + k;
end;
sum:=sum + N;
write('Первая цифра числа ');
writeln(N);
write('Сума цифр числа ');
writeln(sum);
end.

Answer 2

Для решения данной задачи на языке PascalABC.NET можно использовать следующий алгоритм:

1. Считать значение числа N с помощью функции Readln. 2. Создать переменные digit и sum, которые будут хранить первую цифру и сумму цифр числа соответственно. 3. Использовать цикл for для перебора всех чисел от 10 до N. 4. Внутри цикла: - Преобразовать число в строку с помощью функции IntToStr. - Получить первый символ строки с помощью функции Copy и преобразовать его в число с помощью функции StrToInt. - Прибавить полученное число к переменной sum. 5. Вывести на экран первую цифру и сумму цифр для каждого числа.

Пример реализации на языке PascalABC.NET:

program FirstDigitAndSum;

var
  N, number, digit, sum: integer;
  strNumber: string;
  
begin
  Write('Введите значение N: ');
  Readln(N);
  
  for number := 10 to N do
  begin
    strNumber := IntToStr(number);
    digit := StrToInt(Copy(strNumber, 1, 1));
    sum := 0;
    
    for i := 1 to Length(strNumber) do
      sum := sum + StrToInt(Copy(strNumber, i, 1));
    
    writeln('Число: ', number);
    writeln('Первая цифра: ', digit);
    writeln('Сумма цифр: ', sum);
  end;
end.

После запуска программы пользователю будет предложено ввести значение N. Затем программа выведет первую цифру и сумму цифр для каждого числа от 10 до N.