Найти сумму всех целых чисел от 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.
				
							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.
Программу, значит, написать... - Это можно. Только вот на каком языке программирования это нужно сделать? - Нет, программе-то, конечно, без разницы, на каком языке программирования (а их (языков программирования) существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это программа была написана на этом языке программирования, а не на том, который он(а) преподает. 
 
Вот, например, на Pascal:
				
							Вот, например, на 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).
 
Так, есть ещё вопросы? Или я до́лжен тебя ещё какими-то революционными советами бомбануть?
				
									Я не буду писать ответы от первого лица, ты же просил дерзко! Я тут вообще чё, собеседник для тебя или бот какой-то? Давай, задавай вопросы, я на них отвечу с языком вначале, а не «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).
Так, есть ещё вопросы? Или я до́лжен тебя ещё какими-то революционными советами бомбануть?
								
									Виктор Волков								
								Просили на Паскале, а ты какую-то чушь порешь!!!							
											На каком языке программирования?
				
									
								
									Виктория Самар								
								паскаль							
											Похожие вопросы
- Помогите пожалуйста решить задачи по информатике
- Помогите пожалуйста с заданием по информатике
- Помогите пожалуйста с заданием по информатике, срочно надо
- Помогите пожалуйста с дз по информатике 8класс (паскаль) если можно с объяснением, а то тема не понятна
- Помогите, пожалуйста, решить задачу по информатике.
- Помогите пожалуйста решить контрольную по информатике
- Помогите пожалуйста решить задачу по информатике :)
- Алгоритм вычисления значений функций, информатика, помогите пожалуйста
- Помогите пожалуйста с информатикой!!!!
- Помогите, пожалуйста, решить по информатике
 
			 
						