такие задания не понимаю от слова совсем

1) 64

2) 24

Объяснение:

#1

На диске 512 бит.Одна буква 1 байт = 8 бит.

Следовательно, можно записать, 512 / 8 = 64 буквы

#2

В алфавите 200 буквНа диске 24 байта = 24 * 8 = 192 бита

Считаем минимальное кол-во бит, чтобы закодировать 200 возможных букв: log2(200) ~= 7.64. Округляем вверх, потому что нам нужно точно уметь записывать 200 букв (пренебрегаем тем, что на самом деле можем записать 2^8 =  256 букв.

Значит размер одной буквы – 8 бит. Следовательно вместиться: 192/8 = 24 буквы.

// Поскольку о работе с комплексными числами не говорилось, написал метод для решения квадратного уравнения в вещественных числах (d >= 0).

// Solve -- метод, обеспечивающий решение.

using System;

namespace ConsoleApp1

{

   internal class Program

   {

       private static void Main(string[] args)

       {

           double a, b, c;

           Console.Write("a = ");

           a = double.Parse(Console.ReadLine());

           Console.Write("b = ");

           b = double.Parse(Console.ReadLine());

           Console.Write("c = ");

           c = double.Parse(Console.ReadLine());

           if (a == 0)

           {

               Console.WriteLine("incorrect data");

               return;

           }

           Console.WriteLine();

           Solve(a, b, c);

           Console.ReadLine();

       }

       private static void Solve(double a, double b, double c)

       {

           double d = b * b - 4 * a * c;

           if (d < 0)

           {

               Console.WriteLine("No solutions");

               return;

           }

           double sd = Math.Sqrt(d);

           double x1 = (-b + sd) / (2 * a);

           double x2 = (-b - sd) / (2 * a);

           if (d == 0)

           {

               Console.WriteLine($"x = {x1}");

               return;

           }

           Console.WriteLine($"x1 = {x1}");

           Console.WriteLine($"x2 = {x2}");

       }

   }

}

Program Stipendiya;
type
Student = record
Ocenka: array [1..5] of Byte;
end;
var
i, j: Byte;
Summa: Integer;
Troechik: Boolean;
Studenti: array [1..25] of Student;
begin
for i:=1 to 25 do
begin
// Zapolnyaem ocenki studentov:
WriteLn('Vvedite ocenki '+IntToStr(i)+' studenta: ');
for j:=1 to 5 do
begin
Write('Ocenka za '+IntToStr(i)+' ekzamen: ');
ReadLn(Studenti[i].Ocenka[j]);
end;
end;

// Chitaem summu

S:=0;

WriteLn('');

for i:=1 to 25 do
begin
//
Troechik:=False;
//
for j:=1 to 5 do
if Studenti[i].Ocenka[j] < 4 then Troechik:=True;
//
if not Troechik then
begin
WriteLn('Vidat stipendiu '+IntToStr(i)+' studentu');
Summa:=Summa + 900;
end;
end;

// Vivod summi vsex stipendii
WriteLn('Summa vsex stipendii = '+IntToStr(Summa));
end.