Предмет: Информатика, автор: goodKid3

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

Приложения:

leonidkorolev2007: Какой язык?
goodKid3: паскаль

Ответы

Автор ответа: Kilekanisic
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.


Kilekanisic: 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.
Kilekanisic: Для Турбо Паскаль
goodKid3: спасибо еще раз!
Похожие вопросы
Предмет: Математика, автор: Аноним