code. compile. run. debug. share.
program ex9_pag158_cl_X;
var
cifra, numarPare, numarImpare: integer;
begin
numarPare := 0;
numarImpare := 0;
writeln('Introduceti cifrele codului una cate una, terminand cu 0:');
repeat
read(cifra);
if (cifra = 0) then continue; // Sari peste cifra 0 si continua citirea
if (cifra mod 2 = 0) then
Inc(numarPare)
else
Inc(numarImpare);
until cifra = 0;
if (numarPare > numarImpare) then
writeln('Codul este sigur.')
else
writeln('Codul nu este sigur.');
end.
Compiling Program...
Standard Input:
Interactive Console
Text
Program is not being debugged. Click "Debug" button to start program in debug mode.
| # | Function | File:Line |
|---|
| Variable | Value |
|---|
| Register | Value |
|---|
| Expression | Value |
|---|
| # | Description |
|---|