вы получите факториал 5! = 120.
var
f, i:integer;
begin
f := 1;
for i := 1 to 5 do
f := f * i;
writeln (f);
end.
//PascalABC.NET 3.1
begin
var n := ReadInteger('>>');
WritelnFormat('{0} hours {1} minutes {2} seconds', n div 3600, n mod 3600 div 60, n mod 60)
end.
1) 1*0=0
2) 1+0=1
3) не1+0=0+0=0
4) 1*0+1=0+1=1
5) 1+0*1=1+0=1
6) не1+0*1=0+0=0
7) (1+0)*(1+0)=1*1=1
8) не(1+0)*(1+0)=0*1=0
9) не(1*0*1)=не0=1
Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8