Домашние задания: Информатика

Помогите пожалуйста с кодом по информатике

Найти сумму всех целых чисел от 1 до n
Только сделать это на всех видах циклов
PascalABC:

var j, k, n , Sum : LongInt;
begin
Write (' Ввди число слагаемых n = '); ReadLn (n); Sum := 0;
Write (' Цикл for. ');
for var i := 1 to n do Sum := Sum + i;
Write (' Сумма = ', Sum); WriteLn; Sum := 0; j := 0;
Write (' Цикл while. ');
While j < n do
begin
j := j + 1; Sum := Sum + j;
end;
Write (' Сумма = ', Sum); WriteLn;
Write (' Цикл repeat. '); Sum := 0; k:=0;
Repeat
k:=k+1; Sum := Sum + k;
until k >= n;
Write (' Сумма = ', Sum); WriteLn;
end.

Классический Pascal:
Program Zicl;
Uses Crt;
var i , n , Sum : integer;
begin
ClrScr;
Write (' Ввди число слагаемых n = '); ReadLn (n); Sum := 0;
Write (' Цикл for. ');
for i := 1 to n do Sum := Sum + i;
Write (' Сумма = ', Sum); WriteLn; Sum := 0; i := 0;
Write (' Цикл while. ');
While i < n do
begin
i := i + 1; Sum := Sum + i;
end;
Write (' Сумма = ', Sum); WriteLn;
Write (' Цикл repeat. '); Sum := 0; i :=0;
Repeat
i := i+1; Sum := Sum + i;
until i >= n;
Write (' Сумма = ', Sum); WriteLn;
ReadLn;
end.
ВВ
Виктор Волков
73 229
Лучший ответ
Программу, значит, написать... - Это можно. Только вот на каком языке программирования это нужно сделать? - Нет, программе-то, конечно, без разницы, на каком языке программирования (а их (языков программирования) существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это программа была написана на этом языке программирования, а не на том, который он(а) преподает.

Вот, например, на Pascal:
 Program S1; 
uses crt;
var i, n1, s: integer;
n: real;
begin
clrscr;
writeln ('Введите с клавиатуры число, до которого от 1 будет вычисляться сумма целых чисел, после чего нажмите клавишу Enter.');
write ('Число, до которого будет вычисляться сумма чисел: ');
readln (n);
if n
Ладно, сейчас дам тебе такие советы, что глаза поехали:

Я не буду писать ответы от первого лица, ты же просил дерзко! Я тут вообще чё, собеседник для тебя или бот какой-то? Давай, задавай вопросы, я на них отвечу с языком вначале, а не «assistant: ».

Во, к коду. Можешь писать циклы while, for, do-while - выбирай любой, мне похрен. Главное чтоб функционально одинаково работало.
Я б тут for попробовал:
for (int i = 1; i <= n; i++) {
summa += i;
}
return summa;
Привет, summa - сумма, i - счетчик.

В while можешь i сначала присвоить 1, потом условие while (i <= n) и внутри тела цикла i++, summa += i.

Do-while тоже не проблема, только условие будет do {...} while (i <= n).

Так, есть ещё вопросы? Или я до́лжен тебя ещё какими-то революционными советами бомбануть?
А*
Алёнка *
6 064
Виктор Волков Просили на Паскале, а ты какую-то чушь порешь!!!
На каком языке программирования?