Обсуждение @ 1068. Сумма @ Timus Online Judge

Показать все сообщения Спрятать все сообщения

I got AC with an 28K program!! Drizzt 15 мар 2003 08:08

program Sum (input, output);
var lI, lN : longint;
begin
    readln (lN);
    if lN > 0 then lI := (lN + 1) * lN div 2;
    if lN = 0 then lI := 1;
    if lN < 0 then lI := (abs (lN) + 1) * lN div 2 + 1;
    writeln (lI);
end.

it isn`t too intresting is it?!!!! i used less memory than you :D (+) Locomotive 15 мар 2003 08:22

Var
n :integer;
sum :longint;
begin
readln(n);
if n=0 then n:=1;
sum:=abs(n)*(abs(n)+1) div 2;
if n<0 then sum:=1-sum;
writeln(sum);
readln;
end.
~~~~~~~~~~~~~~
u used 2 Longint (2*4b) and mine 1longint (4) + a Integer (2)
so 4+2<2*4 !!! :P
Please Stop sending AC dear,
Best Regards
Aidin_n7

Re: it isn`t too intresting is it?!!!! i used less memory than you :D (+) zhangwuji 18 фев 2006 15:11

How about my programme.
var
n:longint;
begin
readln(n);
writeln((1+n)*(abs(n-1)+1)div 2);
end.

Edited by author 18.02.2006 15:12

Edited by author 18.02.2006 15:12

Wow! You are both the best programmers in the world! I couldn't ever dream about such good use of memory! <P><P><P> 17 мар 2003 01:06

^_^

woo, so many AC codes are posted. doesn't matter my spoiling one more. Neal Zane 8 авг 2003 12:54

#include <cstdio>
#include <cstdlib>
#include <cstring>
using namespace std;

int main (void) {
    int n;
    scanf("%d", &n);
    printf("%d\n", ((1 + n) * (abs(1 - n) + 1)) >> 1);
    return 0;
}

Обсуждение задачи 1068. Сумма