var s: string;
a: integer;
begin
readln(a);
if a mod 2=0 then s:='четное' else s:='нечетное';
if a in [1..9] then s:=s+' однозначное число';
if a in [10..99] then s:=s+' двузначное число';
if a in [100..999] then s:=s+' трехзначное число';
write(s);
end.
// F#
[<EntryPoint>]
let main argv =
let sum =
[0..200]
|> Seq.where (fun x -> x % 4 = 0)
|> Seq.fold (fun sum x -> sum + x) 0
System.Console.WriteLine sum
System.Console.ReadKey true |> ignore
0
<span>
</span>
Надо, чтобы соблюдалось условие Фано. Поэтому ответ А может быть 00
<span>\красная книга\Ботаника\Евразия \Россия</span>
Program task;
var a,b,c,d,n,s:longint;
begin
writeln('vvedite chislo 4-значноe chislo');read(a);
b:= a div 1000;
c:= a div 100 mod 10;
d:= a div 10 mod 10 ;
n:= a mod 10;
writeln('n=',n);
writeln('b=',b);
writeln('c=',c);
writeln('d=',d);
writeln('s=',b+c+d+n);
end.