1.
var n,p:integer;
begin
write('n='); readln(n);
p:=1;
while n<>0 do begin
p:=p*(n mod 10);
n:=n div 10;
end;
writeln('p = ',p);
end.
Пример:
n=1234
p = 24
2.
var n,k:integer;
begin
write('n='); readln(n);
k:=0;
while n<>0 do begin
k:=k+1;
n:=n div 10;
end;
writeln('k = ',k);
end.
Пример:
n=456123
k = 6
3.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s = ',s);
end.
Пример:
n=5
s = 15
Тут есть два варианта или перевести оба числа в десятичную, а потом результат пересчитать обратно или считать в столбик, абсолютно по тем же правилам как и с десятичными числами
3)коньюртер изображен на данной схеме
Исходник Java прикреплен (Java как всегда по умному компилирует)
теперь на маскале
var i,j,n:integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
n:=j*i;
write(' ', n);
end;
writeln();
end;
end.
<u><em>Borland Pascal 7</em></u>
uses Crt;
var
a,b,c:real;
begin
ClrScr;
a:=-1/7; b:=1/25; c:=0.2;
Writeln((a*b*c-sqrt(b))/(2.5-abs(a)));
ReadKey
end.
Результат выполнения программы:
-8.5333333333E-02