var
a, b, x, s, p: integer;
begin
writeln(' Ввести х');
readln(x);
s := 0;
x := Abs(x); { защита от ввода отрицательных }
while x > 0 do
begin
s := s + x mod 10;
x := x div 10
end;
writeln(' Сумма цифр=', s);
end.
1) клавиатура. Так же может служить и сканер в сочетании программы перевода граф. изображения в текстовый вид.В какой-то степени планшет с ПО распознавания рукописного текста.
2) мышь, сканер, планшет.
3) <span>знаки$×+=%?:/><</span>
1/2048 Кбайт = 1024/2048 байт = 1/2 байт = 8/2 бит = 4 бита
Количество подъездов = 2^4 = 16
Дерево - бумага
Рыба - еда
Вода - питьё
Кислород - воздух