Срочно!!! Помогите решить задачку (в PascalABC) по информатике.Вот текст задачи:«Найти...

Question

Срочно!!! Помогите решить задачку (в PascalABC) по информатике.Вот текст задачи:«Найти суму чисел,не превышающих числа 150,если первое число введено с клавиатуры,а каждое последующее на 10 больше предидущего». Прошу помогите!!!!!

Answer 1

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.

Пример

38

1116

Пояснения

Числа образуют арифметическую прогрессию с разностью 10 и первым членом, равным введенному числу n. Формула суммы s арифметической прогрессии известна. Число членов прогрессии k находится, как количество точек на отрезке [n;150] с шагом 10.

Answer 2

var a,b,c:integer;

begin

    write('a='); readln(a);

    while (a

    begin

    b:=b+a;

    a:=a+10;

    end;

    writeln(b);

end.