требуется найти сумму цифр числа( 5.....5)²,где 0< n<19000. Составьте программу.
5-9 класс
|
Стал ещё сильнее уважать свой ноут:)
uses
System.Numerics;
var
k, m: BigInteger;
n, j: word;
begin
readln(n);
for j := 1 to n do
k := k * 10 + 5;
k := k * k;
writeln(n, ' ', k);
repeat
m := m + (k mod 10);
k := k div 10;
until (BigInteger.Parse(k.toString()).isZero); //нет, isZero просто так не принимает IDE
k := 0;
writeln('Sum: ', m);
end.
Другие вопросы из категории
Читайте также
Var a,b,c:integer;
Begin
Readln(a);
b:= a div 10;
c:= a mod 10;
writeln('сумма цифр числа',a,'равна',b+c,'произведение равно'b*c)
end.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
Пример ввода:567.
Пример вывода:сумма цифр числа 567-четное число