Водной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке. ладно, ладно, детки, дайте только срок, будет вам и белка, будет и свисток! 1) 75 бит 2) 140 бит 3) 140 байт 4) 280 байт

Предложение состоит из 75 символов. Следовательно, его размер в кодировке UTF-16 равен 75 * 16 = 1200 бит = 1200 / 8 = 150 байт.

Решения должны работать на любом диалекте, хотя не проверял...

№1
program Task1;
var a:integer;
begin
read(a);
if a<0 then begin write(sqr(a));
end else if a>0 then begin write(a) end;
end.
№2
program Task2;
var x,z:integer;
begin
read(x);
if x>0 then begin z:=x*x;end;
write(z);
end.

Улучшенный вариант (работает под PascalABC.Net последних обновлений):

№1
begin
var a:integer;
read(a);
if a<0 then begin write(sqr(a));end else
if a>0 then begin write(a) end;
end.
№2
begin
var x:integer;
read(x);
if x>0 then x*=x;write(x);//Результат будет выведен в любом случае, вне зависимости от того, x>0 или нет
end.

Using System;

namespace old4Test1
{
    class Program
    {
        static void Main()
        {
            Console.WriteLine(IsFirstBiggerThanLast(123456));
            Console.WriteLine(IsFirstBiggerThanLast(62514));
            Console.WriteLine(IsFirstBiggerThanLast(1));
            Console.WriteLine(IsFirstBiggerThanLast(12));
            Console.WriteLine(IsFirstBiggerThanLast(105));

            Console.ReadKey();
        }

        // Определите,какая цифра числа-первая или последняя больше. C#
        private static bool IsFirstBiggerThanLast(int number)
        {
            Console.WriteLine(number);
            var s = number.ToString();
            return s[0] > s[s.Length - 1];
        }
    }
}