может кто то помочь с информатикой?Задание по паскалю

program 1to20;

var i,j : integer;
begin
i:=0;
for j:=1 to 20 do begin
  i:=i+j;
end;
writeln(i);
end.

не помню точно, как там всё писалось, но примерно так

Самый лёгкий вариант
program matem;
uses crt;
var i: integer;
begin
clrscr;
i:= 1+2+3+4+5+6+7+8+9+11+12+13+14+15+16+17+18+19+20;
write(i);
readkey;
end.
И всё понятно, без циклов и прочей х...

ой уже давно не пользовался, хотя даже год на праграмиста отучился Ж)

раньше делал, жаль что забыл. может вспомню

подробно не помню как это делалось, но система такая была - задаёшь новое ещё число, например Sum, и потом for i=1 to 20 do
sum=sum+i

наподобии того

function calc():integer;
var
i,c:integer;
begin
i:=0;
repeat
inc(i); //i:=i+1;
c:=c+i;
until i<20;
result:=c;
end;

как-то так, правда я на паскале уже 100 лет нечего не писал :D

-

ДАААААААААААААААААААААААААА     :D:DD:DD:DD:D:DDDDDd ты такая стёбненькая :DD:D: