Ну например так, или по другому. Или по третьему. При a!=0 и b!=0.
1 символ - 1 байт.
Я дома. (+пробел) = 7 символов, следовательно, 7 байт.
Ячейка памяти вмещает 1 бит. 1 байт = 8 бит.
7 * 8 = 56 бит = 56 ячеек памяти.
Планета Земля- Глобус
Автомобиль- игрушечная машинка
2. обладает цветом и формой
1)
var a,a1,a2:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));if a1>a2 then write(a1,'>',a2) elsewrite(a1,'<',a2);end.
2)
var a,a1,a2,a3,a4,s:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));a3:=strtoint(copy(inttostr(a),2,1));a4:=strtoint(copy(inttostr(a),2,1));s:=a1+a2+a3+a4;if s mod 3 = 0 then write('Сумма цифр ',a,'=',s,' - кратно 3')else write('Сумма цифр ',a,'=',s,' - не кратно 3');end.