Программа подсчитывает сумму цифр числа.
Пример. Подсчет суммы цифр числа
var a,x:integer;
i,s:integer;
begin
writeln('введите целое число');
readln( a ); x:=a;
s:=0;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
end.
2008-03-19 • Просмотров [ 108860 ]
2.Программный код (в текстовом формате);
Даны 5 чисел,найти делится ли сумма на 5.(Сумма не может быть отрицательной и должна быть больше 1000)
begin
writeln('Введите 5 чисел');
read(a,b,c,d,e);
s:=a+b+c+d+e;
if (s mod 5 = 0) then writeln('Сумма делится на 5')
else
writeln('Сумма не делится на 5')
end.
Даны целые числа M и N, не превосходящие по абсолютной величине 104. Найти сумму чисел от M до N.
M, N, i: word;
su: integer;
begin
writeln('Введите значение M, N rageo');
read(M, N);
su := 0;
for i := M to N do
begin
write(i, ' ');
su := su + i;
end;
writeln('{сумма чисел', '=', su, '}')
end.