var j, a, b, n: integer;
label 1;
begin
1: randomize;
a: = random (9);
b: = random (9);
write (a, '*', b, '=');
read (n);
if n = (a * b) then writeln ('відповідь вірний! ')
else writeln ('відповідь неправильний! ');
writeln ('продовжуватимеш? ');
writeln ('якщо так то натисни 1');
writeln ('якщо немає то натисни 2');
read (j);
if j = 1 then goto 1;
if j = 2 then writeln ('до побачення! ');
end.
начебто так, точно не пам'ятаю.
кодирование информации - преобразование какой либо информации/сигнала и т. д. в форму удобную для ее обработки, хранения, передачи
с его работают все компьютеры и вычислительные системы.
для кодирования текстовых данных в эвм используется специальный метод, согласно которому, каждому символу алфавита сопоставлено число. эти соответствия сведены в специальные таблицы, называемые стандартами кодирования текстовых данных. при кодировании текста͵ каждый символ алфавита заменяется соответствующим ему числом.
для кодирования четырехцветного изображения требуется двухбитовый код, поскольку с двух битов можно выразить 4 различных значения (отобразить 4 различных состояния).
компьютер является мощнейшим устройством для обработки различных типов информации, в том числе и звуковой. но аналоговый звук непригоден для обработки на компьютере, его необходимо преобразовать в цифровой. для этого используются специальные устройства — аналого-цифровые преобразователи или ацп. в компьютере роль ацп выполняет звуковая карта.
// PascalABC.NET
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
if n.IsEven then
a := a[::2].Sorted.Interleave(a[1::2]).ToArray
else
begin
var b := a[::2].Sorted;
var c := b.Last;
a := (b.Interleave(a[1::2]) + c).ToArray
end;
a.Println
end.