Вопрос Помогите написать программу в паскале СРОЧНО!! Прошу! (заранее спасибо)
- Автор темы Никнейм
- Дата начала
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
примени эту прогу, не получится - пиши
uses crt;
var x,sum,n: integer;
begin
clrscr;
write('ввести число --> '
;readln;
sum := 0;
while n<>0 do
begin
sum:=sum + n mod 10;
n := n div 10;
end;
write('Сумма цифр = ',sum);
readln;
end.
uses crt;
var x,sum,n: integer;
begin
clrscr;
write('ввести число --> '
;readln; sum := 0;
while n<>0 do
begin
sum:=sum + n mod 10;
n := n div 10;
end;
write('Сумма цифр = ',sum);
readln;
end.
