SHARE
TWEET
Lireks
a guest
Jan 29th, 2018
50
in 364 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- var
- a,b: integer;
- begin
- randomize;
- a := random(100);
- while a <> b do begin
- write('Введи число: ');
- readln(b);
- if b > a then
- writeln('Много')
- else
- if b < a then
- writeln('Мало')
- else
- writeln('Угадал');
- end;
- readln
- end.
RAW Paste Data
