Іть написати програму мовою паскаль за цією ! на одному маленькому квадратному безлюдному острові зі стороною а м. перебували к робінзонів. чи не порушені їхні права на житло, якщо на кожного робінзона повино придбати s м^2 площі острова? скільком новим робінзонам ще вистачить місця на острові?

program a;

var k: integer;

a,s: real;

 

begin

readln('a= ',a);

readln('k= ', k);

readln('s= ',s; );

n=int(a*a/s-k);

writeln('осталось место для ', n, ' робинзонов');

readkey;

end.

// PascalABC.NET

begin

 // 1

 var s11 := SeqRandom(100, 10, 99).Sum;

 var s12 := ArrRandom(100, 10, 99).Sum;

 case Sign(s11 - s12) of

   -1: Println('Сумма второго массива больше');

   0: Println('Суммы равны');

 else

   Println('Сумма первого массива больше')

 end;

 // 2

 var s21 := SeqRandom(1000, -9, 9).Sum;

 var s22 := ArrRandom(1000, -9, 9).Sum;

 var s23 := ArrRandom(1000, -9, 9).Sum;

 if s21 > s22 then

   Swap(s21, s22);

 if s22 > s23 then

 begin

   Swap(s22, s23);

   if s21 > s22 then

     Swap(s21, s22)

 end;

 Println(s21, s22, s23);

 // 3

 var a := ArrRandom(50, -99, 99);

 a.Println;

 var s31 := a.Where(p -> p > 30);

 Print('Количество', s31.Count, '   сумма', s31.Sum)

end.

Современный компьютер может обрабатывать числовую, текстовую, графическую, звуковую и видео информацию. Все эти виды информации в компьютере представлены в двоичном коде, т. е. используется алфавит мощностью два (всего два символа 0 и 1). Связано это с тем, что удобно представлять информацию в виде последовательности электрических импульсов: импульс отсутствует (0), импульс есть (1). Такое кодирование принято называть двоичным, а сами логические последовательности нулей и единиц - машинным языком. Суть кодирования заключается в том, что каждому символу ставят в соответствие двоичный код от 00000000 до 11111111 или соответствующий ему десятичный код от 0 до 255.