Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
using System;
namespace ConsoleApp3
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите N и K");
int N = Int32.Parse(Console.ReadLine());
int K = Int32.Parse(Console.ReadLine());
int H = 0;
int ost = 0;
do
{
N -= K;
H+=1;
} while (N >= K);
ost = N;
Console.WriteLine(H + " целых частей");
Console.WriteLine(ost + " остаток");
}
}
}
Место цифры в записи числа в позиционной системе счисления называется - <span>разряд.</span>
Если в Паскале то вот должно работать !
BAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 100 do
if i mod 2 = 0 then s:=s+i;
writeln(s);
<span>END.</span>