Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.18 Výpočty z řady čísel

MENU

04.18 Výpočty z řady čísel

Zadání:
Sestavte program, který z řady čísel zakončených záporným číslem určí součet, průměr čísel a počet čísel dělitelných zadaným číslem.
Řešení:
Zadání vyřešíme použitím cyklu REPEAT. Pomocí něho budeme načítat čísla do té doby, dokud nebude zadáno záporné
číslo. Každou zadanou hodnotu přičteme k součtu a otestujeme, zda je dělitelná zadaným číslem pro test dělitelnosti.
Pokud ano, zvýšíme hodnotu proměnné pocetd o 1 (jedna), abychom spočítali jejich počet.
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var cislo,k,pocet,soucet,pocetd:integer;

begin

   pocet:=0;
   soucet:=0;
   pocetd:=0;

   write('Zadejte cislo na test deleni: ');
   readln(k);

   repeat
      pocet:=pocet+1;
      write('Zadejte ',pocet,'.cislo: ');
      readln(cislo);
      soucet:=soucet+cislo;
      if cislo mod k=0 then pocetd:=pocetd+1;
   until cislo<0;

   writeln('Pocet cisel: ',pocet);
   writeln('Soucet cisel: ',soucet);
   writeln('Pocet cisel delitelnych cislem ',k,': ',pocetd);

   readln;

end.
program ke stažení