Pascal: Problem dzielenia... Ważne!

[Night Knight 0]

Witam, mam problem typu pascal :

Użytkownik ma podać jakąś liczbę np 4 i program ma mi wypisać 4 kolejne liczby podzielne przez 3 a nie podzielne przez 2... czyli dla 4 będzie to: 9, 15, 21, 27

3 nie wchodzi w grę bo te liczby mają występować po naszej wskazanej liczbie, w tym wypadku 4, a że 3<4 to 3 nie należy do rozwiązania...

 

próbowałem najpierw podzielić jakąś liczbę podaną przez użytkownika, no ale wywalał błędy, że nieprawidłowy typ boolean, integer itp...

 

n div 2=1 and n div 3=0 ? jak zapisać tą linijkę aby przeszła kompilacja, i jakiego typu ma być n? integer ? ...

[pedro_b 0]

spróbuj to dać w nawiasy, n raczej powinno być intem

[Night Knight 0]

Var
n:integer;
begin
 writeln('podaj liczbe: ');
 readln(n);

if (n mod 3=0) and (n mod 2=1)
then
writeln(n);
readln();
end.

 

działa cholerne nawiasy ... -.- dzięki, teraz muszę to trochę zmodyfikować na potrzeby mojego zadania ...

[Night Knight 0]

Użytkownik ma podać jakąś liczbę np 4 i program ma mi wypisać 4 kolejne liczby podzielne przez 3 a nie podzielne przez 2... czyli dla 4 będzie to: 9, 15, 21, 27

3 nie wchodzi w grę bo te liczby mają występować po naszej wskazanej liczbie, w tym wypadku 4, a że 3<4 to 3 nie należy do rozwiązania...

 

Var
  n:integer;
  i:integer;
  t:integer;

  begin
	write('podaj liczbe: ');
	readln(n);
	writeln();
   t:=n*7;   { <----------tutaj}

  for i:=n to t do
 begin
 if (i mod 3=0) and (i mod 2=1) and (i<>n)
 then
 writeln(i);
 end;

  readln();
  end.

 

Wynik:

po podaniu liczby 4:

 

9

15

21

27

 

Działa, jeszcze takie pytanko, bo jak widać chamsko wymusiłem, mnożąc razy 7 (patrz komentarz : <-------Tutaj) szukanie następnych liczb, działa nawet dla 100-pokazuje się sto kolejnych liczb takich jak w warunku, czy istnieje jakiś sposób aby zrobić to troszkę inaczej, aby program wyglądał bardziej estetycznie i nie sztucznie?

 

Rozwiązanie:

 

Var
n:integer;
i:integer;
liczba:integer;

begin
 write('podaj liczbe: ');
 readln(n);
 writeln();

liczba := n; 
for i:=1 to n do 
begin 
repeat 
begin 
inc(liczba); 
end until (liczba mod 3=0) and not (liczba mod 2=0);
writeln(liczba); 
end;
readln();
end.

[spinaker 0]

po wczytaniu liczby musisz znaleźć pierwszą liczbę która spełnia warunki zadania, a potem skaczesz od tej znalezionej dodając 6 za każdym razem.