Вхідні дані

Одне додатнє трицифрове число n.

Вихідіні дані

Вивести добуток цифр числа n.

Розв’язок 

var

n:integer;

d:double;

begin

readln(n);

d:=(n mod 10)*(n div 10 mod 10)*(n div 100);

write(d:0:0);

end.

Вхідні дані

В одному рядку задано 3 цілих числа - довжини сторін трикутника. Довжини сторін не перевищують 100.

Вихідні дані

Вивести 1, якщо трикутник рівносторонній, 2 - якщо рівнобедрений і 3 - якщо різносторонній.

 

Розв’язок

var a,b,c:longint;

begin

readln(a,b,c);

if (a=b) and (a=c) and (b=c) then writeln(1);

if (a=b) and (a<>c) and (b<>c)  then writeln(2);

if (a<>b) and (a=c) and (b<>c)  then writeln(2);

if (a<>b) and (a<>c) and (b=c)  then writeln(2);

if (a<>b) and (a<>c) and (b<>c) then writeln(3);

end.

Щасливим квитком називається квиток з шестизначним номером в якого сума перших трьох цифр дорівнює сумі останніх трьох.

Вхідні дані

У єдиному рядку записано одне натуральне число N (N ≤ 27).

Вихідні дані

Одне число - кількість таких щасливих квитків.

Розв’язок

var

n,a,b,c,d,f,g:byte;

i,k,s1,s2: longint;

begin

readln(n);

k:=0;

for i:=000000 to 999999 do

begin

a:=i div 100000;

b:=i div 10000 mod 10;

c:=i div 1000 mod 10;

d:=i div 100 mod 10;

f:=i div 10 mod 10;

g:=i mod 10;

s1:=a+b+c;

if s1=n then

begin

s2:=d+f+g;

if s2=n then k:=k+1;

end;

end;

write(k);

end.