Advertisement
dxvmxnd

Untitled

Sep 27th, 2023
44
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.06 KB | None | 0 0
  1. program L_2_D;
  2.  
  3. uses System.SysUtils;
  4.  
  5. var
  6.     Num, Res: Integer;
  7.     IsCorrect: Boolean;
  8.  
  9. begin
  10.     Writeln('Данная программа выводит на экран законопеременную сумму цифр данного натурального числа n.');
  11.     Res := 0;
  12.     repeat
  13.         Write('Введите положительное целое число (натуральное): ');
  14.         IsCorrect := True;
  15.         try
  16.             Read(Num);
  17.             if Num <= 0 then
  18.             begin
  19.                 Writeln('Не является натуральным числом');
  20.                 IsCorrect := False;
  21.             end;
  22.         except
  23.             Writeln('Не является натуральным числом');
  24.             IsCorrect := False;
  25.         end;
  26.     until IsCorrect;
  27.  
  28.     for Num := Num downto 10 do
  29.     begin
  30.         Res := (Num mod 10) + Res;
  31.         Num := Num div 10;
  32.     end;
  33.  
  34.     Res := Res + Num;
  35.     Writeln('Сумма цифр данного числа: ', Res);
  36.     Readln;
  37. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement