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 различных состояния).
компьютер является мощнейшим устройством для обработки различных типов информации, в том числе и звуковой. но аналоговый звук непригоден для обработки на компьютере, его необходимо преобразовать в цифровой. для этого используются специальные устройства — аналого-цифровые преобразователи или ацп. в компьютере роль ацп выполняет звуковая карта.
N = 13;
Var
Z:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
Z[i]:=random(2*N+1)-N;
Write(' ',Z[i]);
if (Z[i] mod 3 = 0)and(Z[i] mod 4 <> 0) then S:=S+Z[i];
End;
WriteLn;
WriteLn('S = ',S);
End.