Решаем задачи Абрамян на Паскале. While18

While18. Дано целое число $$N$$ ($$> 0$$). Используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр.

Решение:

program While18;
var
  N, Num, Sum, Temp:Integer;
begin
  Write('Введите число N: ');
  Readln(N);
  Sum:=0;
  Num:=0;
  while N>0 do
  begin
   Inc(Num,1);
   Temp:=N mod 10;
   Sum:=Sum+Temp;
   N:=N div 10;
  end;
  Writeln(Num,' ',Sum);
end.

program While18;

var

N, Num, Sum, Temp:Integer;

begin

Write('Введите число N: ');

Readln(N);

Sum:=0;

Num:=0;

while N>0 do

begin

Inc(Num,1);

Temp:=N mod 10;

Sum:=Sum+Temp;

N:=N div 10;

end;

Writeln(Num,' ',Sum);

end.

Другие задачи из раздела While можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. While18

Комментарии:

Добавить комментарий Отменить ответ