<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)
000 111 10
C O H
1) В диаграмме площади секторов относятся как 1:2:2:3
В2=С1-D1=3-1=2
C2=D1-1=2-1=1
D2=A1-B1=4-2=2
A1 должно быть =3 - = А1-1=4-1=3
ответ : 2) +А1-1
//java
for (int i = 10; i < 100; i++)
if (i % 3 == 0 && i % 2 == 0)
System.out.print(i + " ");
Проверка:
$ javac Main.java
12 18 24 30 36 42 48 54 60 66 72 78 84 90 96