Pascal - jak vypočítat řadu při diferenciaci

[Pelda01]

Cauko, potreboval bych prosim vas sečíst naslednou radu tech cisel, co mi vyjde z diferenciace. Jak to udelat, aby mi to sečetlo všechny ty cisla prosim?

program arada;
uses crt;
var
I, N : integer;
A, D : real;
begin
write ('zadej prvni prvek');
readln (A);
write ('zadej diferenci');
readln (D);
write ('zadej pocet prvku');
readln (N);
write (A:2:2, ' ');
for I := 1 to N do
begin
{textcolor (I); }
A :=A+D;
write (A:2:2, ' ');
end;
repeat until keypressed;
end.
);

[Uziv00]

A přesně kvůli tomu jsem proti pomáhání s úkoly na fóru.
Už ti tu bylo pomoženo, a ne, že by ses začal učit, ale jsi tu zas. A tak to pokračuje. A pak se člověk nestačí divit, co že za inženýry leze ze škol.
Proč nejdeš zametat ulice? Nepotřeboval bys programování a i intelektuálně bys to zvládl.

[Pelda01]

lol zadnej inzenyr bejt nechci ty Edo, když to nechapes tak nepis dik

Dodatečně přidáno po 7 minutách 37 vteřinách:
Ulice si běž zametat sám. Nebudu se učit sračku jako je pascal to už je mnohem lepší se naučit písmo starejch aztéků ty kriple. Nemám v plánu ani studovat programování . Jestli s tím máš něakej problém tak je jenom tvůj. Tvůj názor na to nikoho nezajímá.

[Uziv00]

Ale tvé učitele to zajímat bude, až zjistím, kdo jsi dle tvé IP a pošlu do školy, jak tady podvádíš. Nakonec na té ulici stejně skončíš
BTW, kdybys dával ve škole větší pozor, věděl bys, že to jde

[atari]

Nebudu se učit *** jako je pascal

Tak v tom případě sem nedávej dotazy na Pascal. A kromě toho tím dotazem porušuješ pravidla fora.

ITCrowd to napsal jasně. Ale zopakuji to ještě jinak. Kdo nedělá domácí úkoly, tak pak chodí sem, a žádá o rady, když v práci neumí to, co se měl naučit při studiu.

[faraon]

Takhle:

Kód: Vybrat vše

C := C + A;