Напишите программу,которая считает сумму цифр введенного числа (паскаль) Programи fr;
var a, sum: integer;
Begin
Writeln ('Введите число');
Readln (a);
while a<>0 do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
Writeln ('Сумма цифр ',sum);
end.
Почему используется вот такая запись ( что это значит ) - sum:=sum+(a mod 10) ???
Можно ли написать эту программу как то через другой цикл? ( если да,то напишите его)
Заранее СПАСИБО
var a, sum: integer;
Begin
Writeln ('Введите число');
Readln (a);
while a<>0 do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
Writeln ('Сумма цифр ',sum);
end.
Почему используется вот такая запись ( что это значит ) - sum:=sum+(a mod 10) ???
Можно ли написать эту программу как то через другой цикл? ( если да,то напишите его)
Заранее СПАСИБО
More Questions From This User See All