<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3('Введите длины сторон треугольника:');
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.
Ответ:
for( var i=0;i<array.length; i++)
{
if (array[i] > 10) array[i]=Math.Sqrt(array[i]);
if (i % 2=0) array[i]=Math.Abs(array[i]);
}
Ответ:
Объяснение:
Передача информации: Рассказал другу параграф по истории. Передал подруге флешку с любимыми песнями.
Хранение информации. Хранение фотографий на жестком диске. Электронный учебник скачан на телефон.
Обработка информации: Решение задачи на уроке математики. Ввод текста с клавиатуры в компьюетер ( преобразование текста в довичный код)
Вот решение, прикрепил снизу:
F=93,75 Кбайт=93,75*1024*8 бит =768 000 бит
H=24 КГц=24 000 Гц
t = 768 000:24 000:8= 4 секунды