Pascal feladat segítség?

ha használhatsz label-eket és goto utasítást, akkor

mondjuk így megírhatod

ujra:

ReadLn(tipp);

if tipp>szam

then Begin

WriteLn('Magas szam');

GOTO ujra;

End;

if tipp<szam

then Begin

WriteLn('Alacsony szam');

GOTO ujra;

End;

WriteLn('Teli talalat :)');

És a teljes program

Program kitalalo;

Uses Crt;

LABEL ujra;

LABEL hibas;

VAR

szam, tipp, i: integer;

Begin

ujra:

ClrScr;

Randomize;

szam:=Random(99);

hibas:

Write('A tipped: ');

ReadLn(tipp);

if tipp>szam

then Begin

WriteLn('Magas szam');

GOTO hibas;

End;

if tipp<szam

then Begin

WriteLn('Alacsony szam');

GOTO hibas;

End;

WriteLn('Teli talalat :)');

Write('Akarsz megegyet jatszani (1=igen): ');

ReadLn(i);

if i=1 then goto ujra;

End.

Szia,

Ha esetleg még érdekel, itt egy rövidebb:

program jatek;

uses crt;

var tipp,kitalalando:integer;

Begin

crlscr;

randomize;

kitalalando:=random(100) <-- ( )-be annyit írj be, ahány számból találgatni szeretnél

writeln('Ha tippelni szeretnél, írj be egy számot!');

repeat

readln(tippelt);

if tippelt<kitalalando then writeln('Rossz tipp, próbáld újra!')

if tippelt>kitalalando then writeln('Rossz tipp, próbáld újra!')

until tippelt=kitalalando;

writeln('Woooww, kitaláltad!');

readkey;

End.

Nekem futott, remélem jól írtam át.