Program job_1;
var
a,b,s,d, : integer;
begin
writeln('введите два числа ');
readln(a,b);
s:=a*b;
writeln('После умножение',s);
d:=a-b;
writeln('Вычитание',d);
end.
НА ПАСКАЛЕ
<em>Трассировка</em><span> — это операция, позволяющая определить адреса серверов, через которые проходят данные, получаемые браузером, а также скорость передачи данных каждым из серверов. Трассировка бывает полезна, например, когда необходимо выяснить причину долгой загрузки веб-сайта. Чтобы выполнить трассировку, откройте терминал командной строки, наберите команду следующего вида и нажмите клавишу «Enter»</span>
Const n=15;
var a,s:array [1..100] of integer;
i,j:integer;
begin
for i:=1 to n do begin
a[i]:=random(15);
write(a[i],' ');
end;
j:=1;
writeln;
writeln('Полученный массив');
for i:=1 to n do begin
if (a[i] mod 2 = 0) and (a[i]>0) then begin
inc(j);
s[j]:=a[i];
write(s[j],' ');<span>
end;
end;</span>
4 умножить на 2=8.
По формуле Хартли вычисляем логарифм восьми по основанию два.
3 бита.
<span />
