Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика Практика / 1
.pas Program praktika1;
Uses CRT;
Var n, summa: Integer;
Begin
Write('Задайте число: ');
ReadLn(n);
While (n>0) Do
Begin
summa:=summa+n mod 10;
n:=n div 10;
End;
WriteLn;
WriteLn('сумма = ', summa);
ReadLn;
End.
Uses CRT;
Var n, summa: Integer;
Begin
Write('Задайте число: ');
ReadLn(n);
While (n>0) Do
Begin
summa:=summa+n mod 10;
n:=n div 10;
End;
WriteLn;
WriteLn('сумма = ', summa);
ReadLn;
End.