Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
26
Добавлен:
04.06.2015
Размер:
252 б
Скачать
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.
Соседние файлы в папке Информатика Практика