Question

ПРОГРАММИСТЫ РЕШИТЕ ПОЖАЛУЙСТА 10 ВАРИАНТ! ДАЮ 100 БАЛЛОВ
и блок схему пж
PS: язык программирования - Турбо Паскаль

Answer 1

                                      PascalABC.NET

begin

 var (x,m) := ReadInteger2('Введите x, m:');

 var (n,sum) := (1,0);

 while  n <= m do begin

     sum+=(x-6*n);

     Inc(n);

   end;

 Writeln(Sum);

end.

Answer 2

var
x,m,n,sum: integer;
begin
n:=1;
sum:=0;
Write('Введите x,m');
Readln(x,m);
while n <= m do begin
sum:=(sum+x-6*n);
n:=n+1;
end;
Writeln(Sum);
end.

Answer 3

спасибо еще раз!