25 сообщения в whats app серёжа пишет 40 сообщений в день в whats app. каждое сообщение содержит 100 символов. объём всех сообщений, которые серёжа отправляет за один день, равен 8000 байт. вопрос 1. сколько бит необходимо для кодирования одного символа в серёжиных сообщениях? в ответе запишите только одно число без добавления единиц измерения. вопрос 2. сколько секунд потребуется для передачи двух фотографий, каждая из которых имеет информационный объём равный 3,2 мбайт, если известно, что скорость интернета у серёжи 32 мбит/c. ответ напишите с точностью до одного знака после запятой, единицы измерения писать не нужно.
ответ: окей
объяснение:
для квадрата:
procedure tform1.button1click(sender: tobject);
var
a,b,c,d,p,s: real;
begin
a: =2; b: =2; c: =2; d: =2;
if ((a=b)and(c=d)and(a=d))then
begin
p: =(a+b+c+d)/2;
s: =sqrt((p-a)*(p-b)*(p-c)*(p-d));
showmessage('s='+floattostr(s));
end else showmessage('это не квадрат');
end;
для треугольника:
procedure tform1.button1click(sender: tobject);
var
a,b,c,p,s: real;
begin
a: =2; b: =2; c: =3;
if (abs(a-b)
begin
p: =(a+b+c)/2;
s: =sqrt(p*(p-a)*(p-b)*(p-c));
edit1.text: =floattostr(s);
end else showmessage('не треугольник');
end;
ответ:
на форму поставил компонент memo
в edit1 и edit2 вводим значения строк и столбцов
для цикла for i: = for j: =
на кнопке следующий код
объяснение:
procedure tform1.button1click(sender: tobject);
var i,j: integer; s: string;
begin
a: = strtoint(edit1.text);
b: = strtoint(edit2.text);
for i: = 1 to a do begin
s: = '';
for j: = 1 to b do
s: = s+' '+inttostr(i*j);
memo1.lines[i-1]: = s;
end;
end;