Микрофон - <span>Ввод звука в компьютер</span>
Перевод информации из понятной компьютеру или цифровой, в другой вид информации понятной например людям или возможно дельфинам)
Примеры устройств вывода: колонки, принтер, монитор
program n_1;
uses crt;
var
n: longint;
k: integer;
function Sym(n: integer): char;
begin
case n of
0..9: Sym := chr(48 + n);
10..36: Sym := chr(55 + n);
end;
end;
function funct(n: longint; k: integer): string;
var
st: string;
begin
st := '';
if n = 0 then st := '0' else
begin
while n >= 1 do
begin
st := Sym(n mod k) + st;
n := n div k;
end;
end;
DecToX := st;
end;
begin
readln(n);
repeat
readln(k);
until (2 <= k) and (k <= 36);
writeln(funct(n, k));
end.
Program fd;
var a,k:integer;
begin
Writeln('Ввести чётное натуральное число a');
Readln(a);
Writeln('Ввести число k');
Readln(k);
Writeln('',a div 100);
Readln(d);
Writeln('',a mod 100);
Readln(c);
if d+c>k then Write('Утверждение верно!'); else
if d+c<k then Write('Утверждение неверно!');
end.
Только для двузначного т.к. не имею на компьютере паскаль
Шаг 1. Запустить графический редактор Paint (рис. 3).<span>1. Щелкнуть по кнопке Пуск.</span><span>2. В Главном меню выбрать команду Программы.</span><span>3. В появившемся подменю выбрать команду Стандартные.</span><span>4. В следующем подменю выбрать команду Графический редактор Paint.
</span><span>Шаг 2. Выберите любой основной цвет, установите указатель мыши на нужный цвет палитры и щелкните правой кнопкой мыши
</span>Шаг 3. Построение изображения.
Ну вроде бы всё