procedure InitLongNumber(n: longint; var a: longnum); var i: longint; begin for i := 1 to len do if n <> 0 then begin a[i] := n mod 10; n := n div 10 end else a[i] := 0; end;
function mul(a: longnum; k: longint): longnum; var i, tmp: longint; begin tmp := 0;
for i := 1 to len - 1 do begin a[i] := a[i] * k + tmp; tmp := a[i] div 10; a[i] := a[i] mod 10 end;
result := a end;
procedure PrintLongNumber(a: longnum); var i, j: longint; begin i := len; while a[i] = 0 do dec(i); for j := i downto 1 do write(a[j]) end;
begin readln(n); InitLongNumber(1, s); for i := 1 to n do s := mul(s, i); write(n, '! = '); PrintLongNumber(s); end.
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
writeln ('Стоимость 2 пирожков = ',a*2);
writeln ('Стоимость 3 пирожков = ',a*3);
writeln ('Стоимость 4 пирожков = ',a*4);
writeln ('Стоимость 5 пирожков = ',a*5);
writeln ('Стоимость 6 пирожков = ',a*6);
end.
Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:
var a,n:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.