Предмет: Информатика,
автор: Fedan1
Хелп. Плиз информатика
Приложения:
![](https://files.topotvet.com/i/e93/e93572efeab657f1c8fe365c29806468.png)
Ответы
Автор ответа:
0
Решения даны для PascalABC.NET 3.3, сборка 1599 от 17.12.2017.
Если программа не работает, обновите версию!
1. По формуле суммы арифметической прогрессии S=n(n+1)/2
begin
var n:=ReadInteger('n=');
Writeln('S=',n*(n+1) div 2)
end.
Пример
n= 10
S=55
2. Сумма чисел натурального ряда, кратных 5 или 8.
begin
Writeln('S=',1.To(50).Where(t->(t mod 5=0) or (t mod 8=0)).Sum)
end.
Результат
S=403
3. Очередную цифру получаем, беря остаток от деления числа на 10.
Затем число делим на 10 нацело и повторяем операцию до тех пор, пока не получим после деления 0.
begin
var n:=Abs(ReadInteger('n=')); // Abs - а вдруг число отрицательное?
var s:=0; // для суммы цифр
while n>0 do begin
s+=n mod 10;
n:=n div 10
end;
Writeln('Сумма цифр в числе равна ',s)
end.
Пример
n= 4356203
Сумма цифр в числе равна 23
Если программа не работает, обновите версию!
1. По формуле суммы арифметической прогрессии S=n(n+1)/2
begin
var n:=ReadInteger('n=');
Writeln('S=',n*(n+1) div 2)
end.
Пример
n= 10
S=55
2. Сумма чисел натурального ряда, кратных 5 или 8.
begin
Writeln('S=',1.To(50).Where(t->(t mod 5=0) or (t mod 8=0)).Sum)
end.
Результат
S=403
3. Очередную цифру получаем, беря остаток от деления числа на 10.
Затем число делим на 10 нацело и повторяем операцию до тех пор, пока не получим после деления 0.
begin
var n:=Abs(ReadInteger('n=')); // Abs - а вдруг число отрицательное?
var s:=0; // для суммы цифр
while n>0 do begin
s+=n mod 10;
n:=n div 10
end;
Writeln('Сумма цифр в числе равна ',s)
end.
Пример
n= 4356203
Сумма цифр в числе равна 23
Похожие вопросы
Предмет: Математика,
автор: kolesnikovakri11
Предмет: Українська мова,
автор: puvovaryana05
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: миша108
Предмет: Математика,
автор: CrAsH228