1)1110011
1+2+16+32+64=115
2)1101001
1+8+32+64=105
3)134=128+2+4
10000110
Ответ: 3 (три единицы)
4)143=128+8+1+4+2
10001111
Ответ:5
5)141=128+8+4+1
10001101
Ответ:4
6)1100110
2+4+32+64=102
Var a: integer;
begin
write('Введите трехзначное число: ');
readln(a);
writeln('Результат: ',(a mod 100)*10+(a div 100));
end.
var a,b,c:integer;
begin
writeln('Введите a,b,c');
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if a+b>b+c then
begin
if a+b>a+c then
write('a+b=',a+b)
else
write('c+a=',c+a);
end
else if b+c>=a+b then
begin
if b+c>c+a then
write('b+c=',b+c)
else
write('c+a=',c+a);
end
else
write('c+b=',c+b);
end.
F_s=60*40=2400
o_s=2400*6=14400
odin_simv=28800/14400=2 bayt
bit=2*8=16 bit
Result= 16 bit
// PascalABC.NET 3.3
const n=4;
begin
Writeln('1 массив:');
var a:=MatrRandom(n,n,-10,10); a.Println(6);
Writeln('2 массив:');
var b:=MatrRandom(n,n,-10,10); b.Println(6);
var c:=a.ElementsByRow.Where(x->x<0)+b.ElementsByRow.Where(x->x<0)+
a.ElementsByRow.Where(x->x=0)+b.ElementsByRow.Where(x->x=0)+
a.ElementsByRow.Where(x->x>0)+b.ElementsByRow.Where(x->x>0);
c.Println;
end.
Пример:
1 массив:
-6 -3 1 8
6 -3 -8 0
8 10 -3 -9
1 -9 -2 6
2 массив:
-7 -1 -3 9
-2 -6 5 2
0 10 1 0
5 -2 5 5
-6 -3 -3 -8 -3 -9 -9 -2 -7 -1 -3 -2 -6 -2 0 0 0 1 8 6 8 10 1 6 9 5 2 10 1 5 5 5
<span>WORD - мощный текстовый редактор , позволяющий быстро создать документ любой сложности из разрозненных заметок и довести до совершенства
<span>информационный бюллетень или брошюру . </span>
<span><span> </span>Это уже общепризнанно - редактор Word фирмы Microsoft является сегодня </span>самой популярной в мире программой. Word начинен “ быстрыми “ командами
и самыми современными средствами, такими как встроенная программа проверки <span>правописания и словарь синонимов, которые помогают вам грамотно составлять </span>документы, и готовыми шаблонами, позволяющими вам сводить воедино заметки,
<span>письма, счета и брошюры без больших усилий.</span></span>
