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

leonidkorolev2007:
Какой язык?
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: melnik2
Предмет: Русский язык,
автор: Аноним
Предмет: Другие предметы,
автор: tkach02
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: MrGalaxyJ3