<span><span>Представление информации с помощью некоторого кода</span> - Кодирование
</span>
Задача 1)
//PascalABC.NET
begin
writeln('Введите через пробел три числа');
var a := ReadArrInteger(3);
write('Разность большего и меньшего равна ');
writeln( a.Max - a.Min )
end.
Задача 2)
//PascalABC.NET
var
y : array of real;
begin
// Запрашиваем область определений
write('Введите a: ');
var a := ReadlnReal();
write('Введите b: ');
var b := ReadlnReal();
write('Введите k: ');
var k := ReadlnReal();
// Резервируем массив для значений функции
y := new real[Round((b - a) / k) + 1];
// Заполняем массив данными
for var i := 0 to Round((b - a) / k) do
begin
y[i] := Exp(a) - Sin(a) * Cos(a);
// Следующее значение
a += k
end;
// Выводим массив на экран
foreach var i in y do
writeln(i:8:3)
end.
Результаты в приложениях
Var x,y:integer;
begin
read(x);//число
while(x <>0) do begin
if x mod 10 mod 2=1 then y:=y+x mod 10;
x:=x div 10;
end;
writeln(y);
<span>end.</span>
Если 2711 бит передается за 1 секунду, то за 38 секунд будет 38*2711=103018 бит