Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
<span>end.
Жду спасибо)</span>
Если ".1." несёт 4 бита информации, а ".2." в 2 раза меньше, то получается, что:
Кол-во информации в сообщении ".2." = 4 бита (оно же 0,5 байт) / 2 = 2 бита (0,25 байт).
1.Переведём Кбайты в байты: 15(Кбайт) * 1024(байт в 1 Кбайт) = 15360 байт (кол-во файла).
2.Найдём скорость соединения: 15360 байт / 120 сек = 128 байт/с (байт в секунду).
Переведём дополнипельную скорость соеднения: 512(бит/с) / 8(бит в 1 байт) = 64 байт/с.
Теперь скорость будет равна 128 байт/с + 64 байт/с = 192 байт/с
Осталось найти время передачи: 15360(байт) / 192(байт/с) = 80с
Ответ: 80секунд.
<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
for var i := ReadInteger('n->') to ReadInteger('k->') do
if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0
then i.Println;
end.
<u>Пример:</u>
k-> 1170
n-> 1111
1112
1113
1114
1115
1116
1117
1118
1119
1121
1131
1141
1151
1161
Они оба были созданы человеком