Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24
2048*768*8 (глубина цвета)*25*5*60=<span><span>94371840000 бит/8/1024/1024/1024=10,99Гбайт</span></span>
1)
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
number:=abs(number)-2;
writeln(number);
readln;
end.
2)
program test;
var number, temp: integer;
begin
write('Enter the number: ');
readln(number);
temp:=number mod 10;
writeln(temp, '^2=', temp*temp);
readln;
end.
<span>1010101 индекс 2=1*2^6+0*2^5+1*2^4+..+0*2^1+1*2^0=85(10)
85(10)=125(8)
85(10)=55(16)
</span>
begin
var a := MatrGen(10, 10, (i,j) -> Ln(Abs((i+1)*(j+1))));
a.Println(7, 4)
end.