MLABlibrarysvnkaklikMLAB_E8magsvn

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /programy/pascal/zaklady/SUMA_KAK.PAS @ 504

  → /programy/pascal/zaklady/SUMA_KAK.PAS @ 505

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Ignore whitespace Rev 504 → Rev 505

/programy/pascal/zaklady/SUMA_KAK.PAS
0,0 → 1,34
program suma;
uses crt;
var n : integer;
function secti(n:integer) : integer;
var i,sum : integer;
begin
sum :=0;
for i:=1 to n do
begin
sum:= sum + i;
end;
secti :=sum;
end;
begin
clrscr;
write ('zadejte hodnotu');
readln (n);
write('vysledek je',secti(n));
readln;
end.