Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
какие слова получились , допиши вопос , я отвечу)))КАКие полученые шифровки?????????
1.резервные копии
<span>2.перенос </span>
<span>3.снижение ресурсоемкости </span>
<span>4.в целях безопасности</span>
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var i:=1 to 100 do
if i.IsEven then Print(i)
end.
<u>Результат</u>
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100