^ - степень.
Не забываем, что любое число в нулевой степени равно 1.
1) 1*2^2+0*2^1+1*2^0=4+0+1=5;
2)1*2^2+1*2^1+1*2^0=4+2+1=7;
3)7*8^0=7*1=7;
4)1*8^1+1*8^0=8+1=9;
5)2*8^1+2*8^0=16+2*1=16+2=18;
Вспомним как кодируются буквы в шестнадцатеричной системе счисления.
A=10. B=11. C=12. D=13. E=14. F=15;
6)1*16^1+10*8^0=16+10=26;
7)11*16^1+15*8^0=176+15=191;
8)9*16^1+12*16^0=144+12=156.
Рад был помочь!
var i,a,b,c,k: integer;
begin
for i:=1 to 5 do
begin
a:=random(8)+1;
b:=random(8)+1;
write (a,' * ',b,' = ');
readln (c);
if c = a*b then k:=k+1
end;
writeln ('Вы правильно ответили на ',k,' примера')
end.
1)
var
x,y,s:real;
begin
readln(x,y);
s:=abs(x*y);
writeln(s:8:2);
end.
2)
var
a:integer;
begin
readln(a);
if a mod 2=0 then writeln("четное число")
else writeln("нечетное число")ж
end.
<span>насколько я знаю основой древнегреческого алфавита был финикийский . Греки лишь модернизировали его , в частности они добавили гласные буквы , которых в финик. алфавите не было</span>
//Задача 1
var d:integer;
begin
readln(d);
if d mod 2 =0 then
Writeln('Четное')
else
Writeln('Не четное');
<span>end.
//Задача 2
var d:integer;
begin
readln(d);
if d mod 3 =0 then
Writeln('Делится') else
Writeln('Не делится');
<span>end.</span></span>