program v pascali - pomoc

• Citovať príspevok

Príspevok od používateľa luki999 » 12 feb 2007, 18:34

Potreboval by som pomoc s tymto programom: 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. x=31
Zadala nam to profesorka a nic nam k tomu nepovedala, prosim pomozte mi . Mam na to cas do piatku.

Re: program v pascali - pomoc

• Citovať príspevok

Príspevok od používateľa audiotrack » 12 feb 2007, 18:39

Program cisla;
var I,N:integer;
begin
write ('Zadaj cislo N: ');
read (N);
for I:=N downto 1 do if (i mod 31 =0) or (i mod 33 =0) then write(I,' ');
end.

• Citovať príspevok

Príspevok od používateľa chrono » 12 feb 2007, 18:40

Kód: Vybrať všetko

var n: Integer;
var x: Integer;

begin
  x := 31;
  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.

// chrono: zmenené AND na OR
// chrono>audiotrack: v pascale som naposledy robil pred niekoľkými rokmi, a tak som musel rozmýšľať nad tým, ako má vyzerať for, if... a takú dôležitú vec som prehliadol

• Citovať príspevok

Príspevok od používateľa audiotrack » 12 feb 2007, 18:42

• Citovať príspevok

Príspevok od používateľa luki999 » 12 feb 2007, 18:49

diky chlapci, ani som si nemyslel ze to bude tak rychlo