TPascal

[kirilltol]

Написать программу которая вычисляет сумму первых n целых положительных чисел. Количество сумируемых чисел должно вводиться во время работы программы.

[kirilltol]

Написать программу которая вычисляет сумму первых n членов 1,3,5,7... Количество сумируемых чисел должно вводиться во время работы программы.

[Medved]

#1
[syntax='Pascal']
program lalala;
var n:integer;
begin
readln(n);
writeln(( (1+n)*n)div 2);
end.
[/syntax]
#2
[syntax='Pascal']
program lalala;
var n:integer;
begin
readln(n);
writeln(sqr(n));
end.
[/syntax]
За такими программами можно к однокласникам(однокурсникам) обращаться, а лучше подумать головой.