Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program L_2_D;
- uses System.SysUtils;
- var
- Num, Res: Integer;
- IsCorrect: Boolean;
- begin
- Writeln('Данная программа выводит на экран законопеременную сумму цифр данного натурального числа n.');
- Res := 0;
- repeat
- Write('Введите положительное целое число (натуральное): ');
- IsCorrect := True;
- try
- Read(Num);
- if Num <= 0 then
- begin
- Writeln('Не является натуральным числом');
- IsCorrect := False;
- end;
- except
- Writeln('Не является натуральным числом');
- IsCorrect := False;
- end;
- until IsCorrect;
- for Num := Num downto 10 do
- begin
- Res := (Num mod 10) + Res;
- Num := Num div 10;
- end;
- Res := Res + Num;
- Writeln('Сумма цифр данного числа: ', Res);
- Readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement