Function ProdDig(n:longint):longint; var p:longint; begin p:=1; while n>0 do begin p:=p*(n mod 10); n:=n div 10 end; ProdDig:=p end;
var f:Text; a,b,c:longint; begin Assign(f,'abc.txt'); Reset(f); Readln(f,a,b,c); Close(f); Assign(f,'abcout.txt'); Rewrite(f); Writeln(f,ProdDig(a+b+c)); Close(f) end.
Вариант без использования функции: var f:Text; a,b,c,p,s:longint; begin Assign(f,'abc.txt'); Reset(f); Readln(f,a,b,c); Close(f); s:=a+b+c; p:=1; while s>0 do begin p:=p*(s mod 10); s:=s div 10 end; Assign(f,'abcout.txt'); Rewrite(f); Writeln(f,p); Close(f) end.
uses crt; var a, b, c, i, n, j :integer; s :array[1..10000] of integer; begin clrscr; writeln('Введите размер массива'); read(n); for i:=1 to n do begin s[i]:=random(46)-15; writeln ('s[', i,']=', s[i]); end; a:=s[1];for i:=1 to n do if s[i]>a then begin a:=s[i]; b:=i; end; writeln ('Наибольший элемент s[', b, ']=',a); end.
a:
INPUT n
IF INT(n)<>n OR n<1 THEN PRINT "не может быть": GOTO a
FOR i=1 TO n
s=s+i
NEXT i
PRINT "сумма равна" ; s
END