Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.16 Součet čísel v daném intervalu

MENU

04.16 Součet čísel v daném intervalu

Zadání:
Sestavte program, který sečte všechny celá čísla ze zadaného intervalu. 1..10.
Řešení:
Zadání vyřešíme použitím cyklu FOR. Načteme dolní mez intervalu (dm) a horní mez intervalu (hm). Otestujeme, zda
nebyla zadána dolní mez větší než horní mez. Pokud ano, hodnoty obou mezí vzájemně prohodíme pomocí proměnné
pom. Poté pomocí cyklu FOR sečteme všechny čísla.
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var dm,hm,pom,soucet,i: integer;

begin

   write('Zadejte dolni mez intervalu: ');
   readln(dm);
   write('Zadejte horni mez intervalu: ');
   readln(hm);

   if dm>hm then
   begin
      pom:=dm;
      dm:=hm;
      hm:=pom;
   end;

   soucet:=0;

   for i:=dm to hm do
      soucet:=soucet+i;

   writeln('Soucet cisel v zadanem intervalu=',soucet);

   readln;   

end.
program ke stažení