Witajcie,
Mam problem z kodem Pascala. Mianowicie coś jest z nim nie tak. czegoś pewnie brakuje ale nie wiem czego, przyznam się że nie siedziałem nad nim długo ale już tracę cierpliwość. A o to kod :
Program podzielnosc;
var
a,b,k,:longword;
begin
write('Podaj liczbę a'); readln(a);
write('Podaj liczbę b'); readln(b);
k:= a mod b;
while (k=0) and (k<0) do
begin
writeln('nie mozliwe')
if k<0 then
begin
k:= a mod b;
writeln('Wynik calkowity', k);
writeln('reszta', k);
end.
"while (k=0) and (k<0) do "
Tłumacząc na nasz:
Dopóki k jest równe 0 i k jest mniejsze od zera rób
Jak widzisz, to nie ma sensu. Nigdy k jednocześnie nie będzie mniejsze i równe zerze.
No i to co napisał poprzednik, masz 3 razy begin, musisz mieć 3 razy end. Traktuj begin i end jak nawiasy w zdaniach. Jak otworzysz nawias to też musisz go zamknąć.
