ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΠΈΠΌΠ΅ΡΡ ΡΠΈΡΠ»ΠΎ ΡΠΈΠΏΠ° Integer Π² ΠΠ°ΡΠΊΠ°Π»Π΅.
ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΠΈΠΌΠ΅ΡΡ ΡΠΈΡΠ»ΠΎ ΡΠΈΠΏΠ° Integer Π² ΠΠ°ΡΠΊΠ°Π»Π΅.
ΠΡΠΎΡΠΈΠ²ΠΎΠΏΠΎΠ»ΠΎΠΆΠ½ΠΎΡΡΡ MAXINT pascal.
ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π²Π½ΠΎ -32768.
program MININT_Task;
// MININT pascal
var
MININT: integer;
begin
MININT := not (MaxInt);
//ΠΡΠ²ΠΎΠ΄ Π½Π° ΡΠΊΡΠ°Π½ MININT
Writeln('ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΠΈΠΌΠ΅ΡΡ ΡΠΈΡΠ»ΠΎ ΡΠΈΠΏΠ° Integer: ', MININT);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΠΈΠΌΠ΅ΡΡ ΡΠΈΡΠ»ΠΎ ΡΠΈΠΏΠ° Integer Π² ΠΠ°ΡΠΊΠ°Π»Π΅.