****Program v pascale**** PLEASE SURNE

nazdar chlapci pomozte mi prosim z jednou ulohou...mam v pascale urobit toto :
Pokyny:
Vytvorte program na výpis všetkých kladných čísel menších ako N, ktoré sú deliteľné číslom x alebo číslom x+2. Prirodzené číslo N je zadané pomocou klávesnice.
prosim napiste ako to ma byt

Nie je to toto? http://www.hojko.com/viewtopic.php?t=67017

ale ja potrebujem kde x bude 11.mojol by si mi to sem presne hodit

Kód: Vybrať všetko

var n: Integer; 
 var i, x: Integer; 
 
 begin 
   x := 11; 
   Write("Zadaj cislo: "); 
   Readln(n); 
   for i := 1 to n do 
   begin 
     if ((i mod x) = 0) OR ((i mod (x+2)) = 0) then 
     begin 
       writeln(i); 
     end; 
   end; 
 end.

alebo

Kód: Vybrať všetko

var n: Integer; 
 var i: Integer; 
 
 begin 
   Write("Zadaj cislo: "); 
   Readln(n); 
   for i := 1 to n do 
   begin 
     if ((i mod 11) = 0) OR ((i mod 13) = 0) then 
     begin 
       writeln(i); 
     end; 
   end; 
 end.

Preboha! To si taký blbý že si nevieš prepísať 31 na 11? Si robíš srandu?

ešte sem zavolaj zvyšných 28 spolužiakov, šak čoby nie?!

Program v pascale PLEASE SURNE

Program v pascale PLEASE SURNE