Решить (в pascalabc) по информатике.вот текст : «найти суму чисел,не превышающих числа 150,если первое число введено с клавиатуры,а каждое последующее на 10 больше предидущего
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
var k := (150 - n) div 10 + 1;
var s := (2 * n + 10 * (k - 1)) * k div 2;
s.Println
end.
Пример381116 Пояснения
Числа образуют арифметическую прогрессию с разностью 10 и первым членом, равным введенному числу n. Формула суммы s арифметической прогрессии известна. Число членов прогрессии k находится, как количество точек на отрезке [n;150] с шагом 10.
begin
var n := ReadInteger;
var k := (150 - n) div 10 + 1;
var s := (2 * n + 10 * (k - 1)) * k div 2;
s.Println
end.
Пример381116 ПоясненияЧисла образуют арифметическую прогрессию с разностью 10 и первым членом, равным введенному числу n. Формула суммы s арифметической прогрессии известна. Число членов прогрессии k находится, как количество точек на отрезке [n;150] с шагом 10.
var a,b,c:integer;
begin
write('a='); readln(a);
while (a<=150) do
begin
b:=b+a;
a:=a+10;
end;
writeln(b);
end.