profile="http://gmpg.org/xfn/11"> Найти сумму Π²Π²ΠΎΠ΄ΠΈΠΌΡ‹Ρ… чисСл Π΄ΠΎ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ ΠΎΡ‚Ρ€ΠΈΡ†Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ числа, Pascal. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Найти сумму Π²Π²ΠΎΠ΄ΠΈΠΌΡ‹Ρ… чисСл Π΄ΠΎ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ ΠΎΡ‚Ρ€ΠΈΡ†Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ числа, Pascal.

Найти сумму Π²Π²ΠΎΠ΄ΠΈΠΌΡ‹Ρ… чисСл Π΄ΠΎ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ ΠΎΡ‚Ρ€ΠΈΡ†Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ числа, Pascal.

program Sum_Nul;

  {Π·Π°Π΄Π°Ρ‡ΠΈ Π½Π° числа паскаль с Ρ€Π΅ΡˆΠ΅Π½ΠΈΠ΅ΠΌ}
  {Найти сумму Π²Π²ΠΎΠ΄ΠΈΠΌΡ‹Ρ… чисСл Π΄ΠΎ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ ΠΎΡ‚Ρ€ΠΈΡ†Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ числа,Pascal}
var
  i_Num, i_Sum: integer;

begin
WriteLn('Π’Π²Π΅Π΄ΠΈΡ‚Π΅ числа, послС Π²Π²ΠΎΠ΄Π° ΠΎΡ‚Ρ€ΠΈΡ†Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ числа, получСнная сумма Π±ΡƒΠ΄Π΅Ρ‚ Π²Ρ‹Π²Π΅Π΄Π΅Π½Π° Π½Π° экран.');
  i_Sum := 0;
  repeat
    i_Sum := i_Sum + i_Num;
    Readln(i_Num);
  until i_Num < 0;
  WriteLn('Π‘ΡƒΠΌΠΌΠ° Π²Π²ΠΎΠ΄ΠΈΠΌΡ‹Ρ… чисСл Π΄ΠΎ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ ΠΎΡ‚Ρ€ΠΈΡ†Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ числа = ', i_Sum);

  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
Найти сумму Π²Π²ΠΎΠ΄ΠΈΠΌΡ‹Ρ… чисСл Π΄ΠΎ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ ΠΎΡ‚Ρ€ΠΈΡ†Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ числа,Pascal
Найти сумму Π²Π²ΠΎΠ΄ΠΈΠΌΡ‹Ρ… чисСл Π΄ΠΎ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ ΠΎΡ‚Ρ€ΠΈΡ†Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ³ΠΎ числа, Pascal.

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.