Напишите программу, которая получает с клавиатуры целое число и записывает в логическую переменную значение «да» (true), если это число трёхзначное. после этого на экран выводится ответ на вопрос: «верно ли, что было получено трёхзначное число? »
Program Primer; var i: Integer; b:Boolean; begin Write('Введите число: '); ReadLn(i); if ((i<-99) and (i>-1000)) or ((i>99) and (i<1000)) then b:=true; WriteLn(b); end.
var
i: Integer;
b:Boolean;
begin
Write('Введите число: ');
ReadLn(i);
if ((i<-99) and (i>-1000)) or ((i>99) and (i<1000))
then b:=true;
WriteLn(b);
end.