<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('Введите четырехзначное натуральное число:');
var p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
Микроскоп, бинокль , интернет
2) Команда( B:= 3) Значение переменной 3
3)Имя переменной С ,Значение переменной 2+3
Спутники ловят сигналы из одной точки земли и посылают их в другую.