| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 16:49:56 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=af4c8bdda8a2e24b78337e87d24986d100ae03121b667ba062a6ddea1773f2b4a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22qfpOoh9PuYHsoCGosvuaS3plV12BpLTy%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cfda845f9d8e4d-BLR
Lab1Challenge1Delphi - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Lab1Challenge1;
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils;
- Var
- IsCorrect: Boolean;
- Rooms, Mans, Womans, MansRooms, WomansRooms: Integer;
- Begin
- Rooms := 0;
- Mans := 0;
- Womans := 0;
- MansRooms := 0;
- WomansRooms := 0;
- IsCorrect := False;
- Repeat
- Try
- Write('Rooms count (cannot be lower than 1): ');
- Readln(Rooms);
- If (Rooms >= 1) Then Begin
- IsCorrect := True;
- End Else Begin
- Writeln('Number must be not lower than 1!');
- End;
- Except
- Writeln('Enter number, not string or anything else!');
- End;
- Until IsCorrect;
- IsCorrect := False;
- Repeat
- Try
- Write('Mans count (cannot be lower than 0): ');
- Readln(Mans);
- If (Mans >= 0) Then Begin
- IsCorrect := True;
- End Else Begin
- Writeln('Number must be not lower than 0!');
- End;
- Except
- Writeln('Enter number, not string or anything else!');
- End;
- Until IsCorrect;
- IsCorrect := False;
- Repeat
- Try
- Write('Womans count (cannot be lower than 0): ');
- Readln(Womans);
- If (Womans >= 0) Then Begin
- IsCorrect := True;
- End Else Begin
- Writeln('Number must be not lower than 0!');
- End;
- Except
- Writeln('Enter number, not string or anything else!');
- End;
- Until IsCorrect;
- MansRooms := Mans Div 4;
- WomansRooms := Womans Div 4;
- If Not(MansRooms * 4 = Mans) Then
- MansRooms := MansRooms + 1;
- If Not(WomansRooms * 4 = Womans) Then
- WomansRooms := WomansRooms + 1;
- If (MansRooms + WomansRooms <= Rooms) Then Begin
- Writeln('Enough');
- End Else Begin
- Writeln('Not enough');
- End;
- Writeln('Press [ENTER] to close program...');
- Readln;
- End.
Tags:
delphi
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 7
JavaScript | 6 sec ago | 0.24 KB
-
⭐✅ Jack's Profit Method ✅ NEVER SEEN BEF...
JavaScript | 7 sec ago | 0.24 KB
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 10 sec ago | 0.10 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ 0
JavaScript | 17 sec ago | 0.24 KB
-
⭐⭐⭐Profit Method⭐⭐
Java | 21 sec ago | 0.10 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ I
JavaScript | 28 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D A⭐⭐
Java | 32 sec ago | 0.10 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ A
JavaScript | 39 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
