База отправлена на почту, если нужна еще кому то, стучаться в личку.
Переводим в 2-ную систему. Для этого делим всё время на 2 с остатком:
6 / 2 = 3 (остаток 0)
3 / 2 = 1 (остаток 1)
Выписываем последний результат деления (1) и все остатки, начиная с конца:
1 1 0
Таким образом:
Аналогично:
Умножаем: 110 х 100 = 11000 (тут действует такое же правило, что и для обычных десятичных чисел: чтобы умножить на 10, 100, 1000, 10000 и т.д., достаточно просто дописать справа столько нулей, сколько их есть в этом множителе).
Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes
4*2=8
Но если нужна программа, то вот:
var
a: <em>word</em>;
b: <em>byte;</em>
begin
readln(a);
b := a mod 100 div 10;
a := a div 1000 mod 10;
writeln(a, ' * ', b, ' = ', a * b);
end.
Данные записанные в одну строку таблицы это - основы.