⇢ Пу
Пулат
Составить программу которая просчитает сумму всех целых чисел от 1 до n, n-вводится с клавиатуры. (Pascal)
var
s,n,i:integer;
ЕТ
Елена Т
program mypascal; var n,s,i:integer; begin readln(n); s:= 0; for i:= 1 to n do s:= s + i; writeln(s); end.
ЕТ
Елена Текоева
writeln( n*(n+1) div 2 );
СВ
Соломенко Виталий
var i,min,max:integer;
...
for i = min to max do
begin
i = i +1;
i++;
end;
Похожие вопросы